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Chapter  I 
INTRODUCTION 

1.1  SCOPE  OF  THE  REPORT 

The  present  report  summarizes  investigations  carried  out  by  the 
authors  during  the  years  1973-1976  on  the  propagation  of  low  frequency 
pressure  disturbances  under  Air  Force  Contract  No.  F19628-74-C-0065 
with  the  Air  Force  Cambridge  Research  Laboratories,  Bedford,  Massachusetts. 
The  study  performed  was  theoretical  in  nature. 

The  central  topic  of  this  study  was  the  generation  and  propagation 
of  infrasonic  waves  in  the  atmosphere.  The  principal  emphasis  was  on 
waves  from  man  made  nuclear  explosions  although  certain  aspects  of  the 
3tudy  pertain  to  waves  generated  by  natural  phenomena  including,  in 
particular,  severe  weather. 

Specific  topics  considered  during  the  study  include  the  following: 

1. )  The  adaptation  of  the  computer  program  INFRASONIC  WAVEFORMS  to 
include  leaking  modes  and  to  improve  its  accuracy  in  synthesizing  early 
long  period  arrivals.  (INFRASONIC  WAVEFORMS  is  a digital  computer  program 
for  the  prediction  of  pressure  signatures  as  would  be  detected  at  large 
horizontal  distances  following  the  detonation  of  a nuclear  device  in  the 
atmosphere.  The  original  version  of  this  program  was  developed  by  Pierce 
and  Posey^  under  a previous  Air  Force  Contract  [F19628-67-C-0217] . ) The 
developed  theory  for  this  adaptation  has  already  been  explained^  in 

Scientific  Report  No.  1 of  the  present  contract;  the  present  report 
describes  the  numerical  implementation  of  this  theory  (Chapter  III) , 
and  gives  some  specific  numerical  examples.  The  complete  current  version 
of  INFRASONIC  WAVEFORMS  is  included  here  as  Appendix  A. 

2. )  The  development  of  a ray  acoustic  model  for  the  synthesis  of  higher 
frequency  portions  of  infrasonic  waveforms.  The  theory  developed  during 


■f 
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this  study  is  given^  in  some  detail  in  Scientific  Report  No.  2 and  a 
discussion  of  this  phase  of  the  work  is  accordingly  not  repeated  here. 

3. )  The  modification  of  the  multi-modal  synthesis  method  to  avoid 
truncation  of  upper  limits  on  frequency  integration.  The  method  develop- 
ed is  presented  here  in  Chapter  IV  and  represents  an  extension  of  the 
W.K.B.J.  technique  to  the  case  when  the  atmosphere  has  two  sound  channels. 
The  resulting  theory  clarifies  the  problem  of  selection  of  modes  for  in- 
clusion into  the  synthesis  and  leads  to  a relatively  simple  method  for 
revising  the  synthesis  program.  (This  revision,  however,  has  not  yet 
been  carried  out.) 

4. )  Study  of  infrasonic  waveform  synthesis  for  propagation  near  and  past 

the  antipodes.  The  method  for  doing  this  was  briefly  mentioned  in  the 

4 

1973  AFCRL  report  (pages  25  and  26)  by  Pierce,  Moo,  and  Posey  . In 
Chapter  V of  the  present  report  the  theory  underlying  this  is  given  and 
some  numerical  examples  are  given. 

In  Chapter  II,  we  list  all  of  the  reports,  papers,  and  theses  which 
were  written  during  the  course  of  this  study.  The  abstracts  given  there 
plus  the  abstract  of  the  present  report  should  be  considered  as  a compre- 
hensive summary  of  the  accomplishments  during  the  contracting  period.  In 
subsequent  chapters  of  the  present  report,  detailed  discussions  are  given 
of  some  of  the  topics  described  above.  In  Chapter  VI,  some  recommenda- 
tions are  made  for  future  work  in  the  field. 

1.2  BACKGROUND  OF  THE  REPORT 


The  general  topics  of  infrasound  propagation,  generation,  and 
detection  have  been  of  considerable  interest  to  a large  segment  of  the 
scientific  community  for  some  time.  A published  bibliography  (the 
existence  of  which  allows  us  to  omit  extensive  citations  here)  lists 
[Thomas,  Pierce,  Flinn,  and  Craine,  1971]  over  600  titles,  most  of  which 
are  directly  concerned  with  infrasound.  Literature  pertaining  to  the 
infrasonic  detection  of  nuclear  explosions  constitutes  a considerable 
portion  of  these.  Earlier  work  by  Rayleigh  [1890]^,  Lamb  [1908,1910]^, 

G.  I.  Taylor  [ 1929 , 1936] 8 , Pekeris  [1939,1938] 9,  and  Scorer  [1950] 10, 
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among  others,  which  was  concerned  with  waves  from  the  Krakatoa  eruption 

11  12 
[Symond,  1888]  ■ and  from  the  great  Siberian  meteorite  [Whipple,  1930] 

is  also  directly  applicable  to  the  understanding  and  interpretation  of 

nuclear  explosion  waves. 

The  present  report  thus  merely  summarizes  a continuation  of  a small 

number  of  facets  of  a lengthy  pattern  of  research  which  has  been  carried 

on  by  a large  number  of  investigators  in  the  past.  In  a more  restricted 

sense,  the  work  reported  here  represents  a continuation  of  work  done  in 

three  previous  studies  performed  under  contract  for  Air  Force  Cambridge 

Research  Laboratories.  The  first  of  these  was  Air  Force  Contract  No. 

AF19 (628) -3891  with  Avco  Corporation  during  1964-1966;  the  second  was 

Air  Force  Contract  No.  AF19628-67-C-0217  with  t'.  » Massachusetts  Institute 

of  Technology  during  1967-1969,  the  third  was  AF19628-70-C-0008  (also 

with  M.I.T)  during  1970-1972.  Summaries  of  the  earlier  work  may  be  found 

13 

in  the  appropriate  final  reports  by  Pierce  and  Moo  [1967]  , by  Pierce 

i 4 

and  Posey  [1970] x , and  by  Pierce,  Moo,  and  Posey  [1973] 

One  of  the  principal  results  of  the  first  two  aforementioned  pre- 
vious contracts  was  a computer  program  INFRASONIC  WAVEFORMS;  the  deck  ^ 
listing  of  the  then  current  version  of  which  is  given  in  the  report  by 

i * 

Pierce  and  Posey  (1970]i.  This  program  enables  one  to  compute  the  pres- 
sure waveform  at  a distant  point  following  the  detonation  of  a nuclear 
explosion  in  the  atmosphere.  The  primary  limitation  on  the, program's 
applicability  to  realistic  situations  is  that  the  atmosphere  is  assumed 
to  be  perfectly  stratified.  However,  the  temperature  and  wind  profiles 
may  be  arbitrarily  specified.  The  general* theory  underlying  this  pro- 
gram is  somewhat  similar  to  that  developed  by  Harkrider  [ 1964]  ^ but  differs 
from  his  in  that  it  incorporates  jackground  winds  and  in  that  it  has  a 
different  source  model  for  a nuclear  explosion. 


Chapter  II 


PAPERS,  THESES  AND  REPORTS 

The  following  gives  author,  title,  and  abstract  of  papers,  theses,  and 
reports  written  during  the  course  of  this  project. 

2.1  A.  D.  Pierce,  "Theory  of  Infrasound  Generated  by  Explosions," 

Colloque  International  sur  les  Infra-Sons,  Proceedings  (Centre  National 
de  la  Recherche  Scientifique  (CNRS)  15,  quai  Anatole  France,  75700  Paris, 
September,  1973). 

A review  is  given  of  recent  studies  by  the  author  and  his  colleagues 
on  infrasound  generation  by  explosions  and  the  subsequent  propagation 
through  the  atmosphere.  These  studies  include  (i)  development  of 
computer  programs  for  the  prediction  of  pressure  signatures  at  large 
distances  from  nuclear  explosions,  (ii)  development  of  an  alternative 
approximate  model  for  waveform  synthesis  based  on  Lamb's  edge  mode, 

(iii)  development  of  a geometrical  acoustics'  theory  incorporating 
nonlinear  effects,  dispersion,  and  wave  distortion  at  caustics,  and 

(iv)  theoretical  models  for  the  mechanisms  of  wave  generation  by 
explosions.  The  basic  theory  is  briefly  outlined  in  each  case  and 
some  of  the  more  significant  results  are  explained  in  terms  of 
simplified  physical  models.  Such  results  include  the  predicted 
dependence  of  far  field  waveforms  on  energy  yield  and  burst  height, 
suggested  techniques  for  estimating  energy  yield  from  waveforms, 
and  an  explanation  of  amplitude  anomalies  in  terms  of  focusing  and 
defocusing  of  horizontal  ray  paths. 

2.2  W.  A.  Kinney,  C.  Y.  Kapper,  and  A.  D.  Pierce,  "Acoustic  Gravity 
Wave  Propagation  Post  the  Antipode,"  J.  Acoust.  Soc.  Amer.  55,  S75  (A) 
(1974). 

The  previous  theoretical  formulations  and  numerical  computations 
of  pressure  waveforms  (such  as  described  by  Harkrider,  Pierce,  and 
Posey,  and  others)  apply  only  to  atmospheric  traveling  waves  which 
have  traveled  less  than  1/2  the  distance  around  the  earth.  In  the 
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present  paper,  a technique  resembling  that  previously  introduced 
by  Brune,  Nafe,  and  Alsop  [Bull.  Seismol.  Soc.  Am.  51,  247-257 
(1961)]  for  elastic  surface  waves  on  the  earth  is  discussed  and 
applied  to  the  acoustic-gravity  wave  propagation  past  the  antipode 
problem.  The  principal  modification  to  the  older  theory  is  a 
shift  in  phase  of  7r/2  to  the  Fourier  transform  of  the  wave  after 
it  has  traveled  over  halfway  round  the  globe  from  the  source.  The 
source  of  the  wave  is  presumed  to  be  a nuclear  explosion  of  given 
energy  E.  Numerically  synthesized  waveforms  of  antipodal  arrivals 
are  exhibited  and  compared  with  those  for  direct  arrivals.  The 
necessary  modifications  to  the  Lambmode  model  theory  of  Pierce  and 
Posey  [G^ophys.  J.  Roy.  Astron.  Soc.  26,  341-368  (1971)]  are  also 
described. 

2.3  C.  Y.  Kapper,  "Leaky  Infrasonic  Guided  Waves  in  the  Atmosphere," 

J.  Acoust.  Soc.  Amer.  56,  S2  (A)  (1974). 

Prior  theoretical  formulations  and  computational  techniques  for 
the  prediction  of  pressure  waveforms  generated  by  large  explosions 
in  the  atmosphere  have  considered  only  fully  ducted  modes.  In  the 
present  paper,  a technique  for  including  weakly  leaking  guided 
modes  in  concert  with  fully  ducted  modes  is  developed.  Modification 
of  previous  theory  includes  the  extension  of  the  boundary  condition 
at  the  upper  half space  to  include  a complex  horizontal  wavenumber. 

The  major  alterations  to  the  computer  program  Infrasonic  Waveforms 
(as  described  in  report  by  Pierce  and  Posey,  1970)  incurred  consist 
of  the  computation  of  the  imaginary  part  of  the  newly  incorporated 
complex  wavenumber,  extension  of  the  normal-mode  dispersion  function 
to  lower  frequencies,  and  a second-order  correction  factor  to  the 
phase  velocity. 

2.4  W.  A.  Kinney,  "Asymptotic  High-Frequency  Behavior  of  Guided  Infrasonic 

Modes  in  the  Atmosphere,"  J.  Acoust.  Soc.  Amer.  56_,  S2  (A)  ( 1974). 

Refinement  of  previous  theoretical  formulations  and  numerical  compu- 
tations of  pressure  waveforms  as  applied  to  atmospheric  traveling 
infrasonic  waves  could  include  a description  of  their  asymptotic 
behavior  at  high  frequencies.  In  the  present  paper,  calculations  based 
on  the  W.K.B.J.  approximation  and  similar  to  those  introduced  by 


-11- 


Haskell  [J.  Appl.  Phys.  22,  157-167  (1951)]  are  performed  to  describe 
the  asymptotic  behavior  of  infrasonic  guided  modes  as  generated 
by  a nuclear  explosion  in  the  atmosphere.  The  results  of  these  cal- 
culations are  then  matched  onto  numerical  solutions  which  have  been 
given  by  Harkrider,  Pierce  and  Posey,  and  others.  It  is  demonstrated 
that  the  use  of  these  asymptotic  formulas  in  conjunction  with  a 
computer  program  which  synthesizes  infrasonic  pressure  waveforms 
has  enabled  the  elimination  of  problems  associated  with  high- 
frequency  truncation  of  numerical  integration  over  frequency.  In 
this  way,  small  spurious  high-frequency  oscillations  in  the  computer 
solutions  have  been  avoided. 

2.5  C.  Y.  Kapper,  Computational  Techniques  in  Infrasound  Waveform  Synthesis, 
M.  S.  Thesis,  School  of  Mechanical  Engineering,  Georgia  Institute  of  Technology 
(December,  1974). 

This  thesis  is  concerned  with  two  major  theoretical  and  programming 
modifications  to  the  digital  computer  program  INFRASONIC  WAVEFORMS 
for  the  synthesization  of  acoustic-gravity  pressure  waveforms  generat- 
ed by  large  explosions  in  the  atmosphere.  The  first  modification 
involves  the  extension  of  the  guided  mode  approximation  for  pressure 
waveforms  in  the  atmosphere  into  leaking  mode  regions  and  a conse- 
quent search  for  the  imaginary  part  of  the  complex  horizontal  wave 
number.  Particular  results  include  a plot  of  phase  velocity  versus 
angular  frequency  showing  the  extension  of  the  normal  mode  dispersion 
function  into  a leaky  mode  region  for  a multilayer  atmosphere  and  a 
report  on  the  search  for  the  imaginary  part  of  the  complex  horizontal 
wave  number  of  a leaky  mode  for  a two  layer  atmosphere.  The  second 
modification  involves  the  extension  of  the  systhesis  of  acoustic- 
gravity  pressure  waveforms  to  distances  beyond  the  antipode.  A 
phase  shift  is  noted  for  waves  passing,  through  the  antipode  and 
a comparison  of  pre  and  post  antipodal  waveforms  is  presented. 

2.6  W.  A.  Kinney,  A.  D.  Pierce,  and  C.  Y.  Kapper,  "Atmospheric  Acoustic 
Gravity  Modes  Near  and  Relow  Low  Frequency  Cutoff  Imposed  by  Upper  Boundary 
Conditions,"  J.  Acoust.  Soc.  Amer.  5i8,  SI  (A)  (1975). 

Perturbation  techniques  are  described  for  the  computation  of  the 
imaginary  part  of  the  horizontal  wavenumber  (kj)  for  modes  of 
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propagation.  Numerical  studies  were  carried  out  for  a model 
atmosphere  terminated  by  a constant  sound-speed  (478  m/sec)  half 
space  above  an  altitude  of  125  km.  The  GRq  and  GR^  modes  have 
lower-frequency  cutoffs.  It  was  found  that  for  frequencies  less 
than  0.0125  rad/sec,  the  GR-^  mode  has  complex  phase  velocity;  kj 
varying  from  near  zero  up  to  a maximum  of  3 X 10"^  km-l  with 
analogous  results  for  the  GRq  mode.  There  is  an  extremely  small 
frequency  gap  for  each  mode  for  which  no  poles  in  the  complex  k 
plane  corresponding  to  that  mode  exist.  These  mark  the  transition 
from  undamped  propagation  to  damped  propagation.  In  the  complete 
Fourier  synthesis,  branch  line  contributions  compensate  for  the 
absence  of  poles  in  these  gaps.  Computational  procedures  are 
described  which  facilitate  the  inclusion  of  the  low-frequency 
portions  of  these  modes  in  the  waveform  sysnthesis. 

2.7  A.  D.  Pierce,  and  W.  A.  Kinney,  Atmospheric  Acoustic  Gravity  Modes 
at  Frequencies  Near  and  Below  Low  Frequency  Cutoff  Imposed  by  Upper 
Boundary  Conditions,  Report  AFCRL-TR-75-0639,  Air  Force  Cambridge  Research 
Laboratories,  Hansnom  AFB,  Mass.  (March,  1976). 

Perturbation  techniques  are  described  for  the  computation  of  the 
imaginary  part  of  the  horizontal  wavenumber  (kj)  for  modes  o:  pro- 
pagation. Numerical  studies  were  carried  out  for  a model  atmosphere 
terminated  by  a constant  sound-speed  (478  m/sec)  half  space  above 
an  altitude  of  125  km.  The  GRq  and  GR^  modes  have  lower-frequency 
cutoffs.  It  was  found  that  for  frequencies  less  than  0.0125  rad/sec, 
the  GR^  mode  has  complex  phase  velocity;  kj  varying  from  near  zero 
up  to  a maximum  of  3 X 1G“**  km--'-  with  analogous  results  for  the  GRq 
mode.  There  is  an  extremely  small  frequency  gap  for  each  mode  for 
which  no  poles  in  the  complex  k plane  corresponding  to  that  mode  exist. 
These  mark  the  transition  from  undamped  propagation  to  damped  propa- 
gation. In  the  complete  Fourier  synthesis,  branch  line  contributions 
compensate  for  the  absence  of  poles  in  these  gaps.  Computational 
procedures  are  described  which  facilitate  the  inclusion  of  the  low- 
frequency  portions  of  these  modes  in  the  waveform  sysnthesis. 

2.8  A.  D.  Pierce,  and  W.  A.  Kinney,  Geometric  Acoustics  Techniques  in 
Far  Field  Infrasonic  Waveform  Synthesis,  Report  AFGL-TR-7 6-0055,  Air 
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Force  Cambridge  Research  Laboratories,  Hanscom  AFB,  Mass.  (1976). 

A ray  acoustic  computational  model  for  the  prediction  of  long 
range  infrasound  propagation  in  the  atmosphere  is  described. 

A cubic  spline  technique  is  used  to  approximate  the  sound  speed 
versus  height  profile  when  values  of  sound  speed  are  input  for 
discrete  height  intervals.  Techniques  for  finding  ray  paths, 
travel  times,  ray  turning  points,  and  rays  connecting  source  and 
receiver  are  described.  A parameter  characterizing  the  spreading 
of  adjacent  rays  (or  ray  tube  area)  is  defined  and  methods  for  its 
computation  are  given.  A method  of  determining  the  number  of  times 
a given  ray  touches  a caustic  is  also  described.  Formulas  are  given 
for  the  computation  of  acoustic  amplitudes  and  waveforms  which 
involve  a superposition  of  contributions  from  individual  rays 
connecting  source  and  receiver  and  which  incorporate  phase  shifts 
at  caustics.  The  possibility  of  a receiver  being  in  the  proximity 
of  a caustic  is  considered  in  some  detail  and  distinction  is  made 
between  cases  where  the  receiver  is  on  the  illuminated  or  shadow 
sides  of  a caustic.  It  is  shown  that  a knowledge  of  parameters 
characterizing  two  rays  at  a point  in  the  vicinity  of  a caustic 
provides  sufficient  information  concerning  the  caustic  to  allow 
one  to  give  a relatively  accurate  description  of  the  acoustic  field 
in  its  vicinity.  The  resulting  theory  involves  Airy  functions  and 
uses  concepts  extrapolated  from  a theory  published  in  1951  by 
Haskell.  The  net  result  is  a detailed  computational  scheme  which 
should  accurately  cover  the  contingency  of  the  receiver  being  near 
a caustic  in  the  calculation  of  amplitudes  and  waveforms.  A number 
of  FORTRAN  subroutines  illustrating  the  method  are  given  in  an 
appendix.  Limitations  of  the  theory  and  suggestions  for  future 
developments  are  also  given. 
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Chapter  III 


NUMERICAL  SYNTHESIS  OF  WAVEFORMS 
INCLUDING  LEAKING  MODES 


3.1  INTRODUCTION 

The  computer  program  INFRASONIC  WAVEFORMS  has  been  modified  to 

allow  inclusion  of  the  contribution  at  low  frequencies  from  leaking 

modes  (specifically  the  GRq  and  GR^  modes)  to  numerically  synthesized 

infrasonic  pressure  waveforms.  The  procedure  incorporated  in  this 

modification  involves  a partly  manual  calculation  of  the  imaginary  and 

real  parts  of  the  horizontal  wavenumber,  k.,  and  k-,,  respectively)  as 

2 1 R 

discussed  in  Scientific  Report  No.  1.  That  calculation  is  outlined 
in  more  detail  here.  The  numbers  presented  for  illustration  are  appro- 
priate to  the  case  of  observations  at  15,000  km  distance  from  a 50 
megaton  explosion,  where  the  explosion  is  at  3 km  altitude,  and  where 
the  atmosphere  is  assumed  to  contain  no  winds.  (This  restriction  is  just 
for  illustrative  purposes,  but  is  not  a limitation  on  the  method.) 


3.2  CALCULATION  OF  COMPLEX  WAVENUMBERS 

The  first  step  in  the  calculation  is  to  obtain  values  for  the  phase 
velocities  v (w) , v (w) , and  v,  (w)  for  the  GR..  and  GR,  modes,  and  to 
obtain  values  for  the  elements  R^(u>,v)  and  R.^(w,v)  of  the  transmission 
matrix  [R] . These  calculations  should  be  done,  in  particular,  for  all 
frequencies  extending  below  the  mode's  nominal  lower  cutoff  frequency. 

2 

As  mentioned  in  the  previous  report  , R^  and  R^  depend  on  the  atmos- 
pheric properties  only  in  the  altitude  range  0 to  z^  (the  bottom  of  the 
upper  half space),  and  these  are  independent  of  what  is  assumed  for  the 
upper  halfspace.  Also,  vn(u))  is  the  phase  velocity  for  a given  (n-th) 
mode  for  values  of  io  greater  than  the  lower  cutoff  frequency  here 
v («o)  and  v,  (w)  are  values  of  the  phase  velocity  to/k  at  which  the  functions 

cl  D 
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and  respectively,  vanish.  For  a given  mode,  the  values  of  vq 

and  v,  chosen  are  those  from  the  curves  v (w)  and  v,  (w)  which  lie  the 
d a b 

closest  of  all  such  curves  to  the  curve  v (w)  for  w><dt  . 

n L 

As  regards  the  calculation  of  R^  and  R^>  the  computer  program 
INFRASONIC  WAVEFORMS  may  be  used,  only  with  an  alternate  version  of  the 
subroutine  TABLE.  A copy  of  subroutine  TABLE  with  the  appropriate 
modifications  incorporated  and  indicated  is  given  in  Appendix  B.  A 
deck  listing  of  all  of  the  input  data  that  is  required  to  obtain  R^ 
and  anc*  that  is  appropriate  to  the  running  example,  follows  in 

Fig.  1.  Values  for  R^  and  R^  need  only  be  calculated  for  phase 
velocities  between,  say,  143  and  0.3318  km/sec,  and  for  frequencies 
between  0.001  rad/sec  (as  close  to  zero  as  would  seem  necessary  and 
corresponding  to  a period  of  6,283  sec  or  1.75  hr)  and  the  value  of 
for  the  upper  halfspace  (.0128  rad/sec  in  our  numerical  example).  In 
the  calculations  reported  here,  the  upper  frequency  was  taken  as  .031 
rad/sec  in  order  to  confirm  the  continuity  of  the  dispersion  curves. 

A sample  portion  of  the  printout  of  R^  and  R^  corresponding  to  the 
model  atmosphere  of  Fig.  2 is  given  in  Fig.  3 . The  same  set  of  out- 
put from  a computer  run  which  lists  the  R^  and  R^  also  includes  the 

v (w)  for  the  GR.  and  GR-.  modes, 
n u 1 

Values  of  v (w)  and  v,  (oi)  for  these  modes  are  obtained  by  two 
a b 

successive  runs  of  INFRASONIC  WAVEFORMS  using  in  sequence  two  modified 
versions  of  the  subroutine  NMDFN.  These  modifications  are  so  minor 
that  the  deck  listing  is  omitted  and  we  describe  here  the  nature  of 
the  modifications. 

To  obtain  v (u>) , one  need  only  change  the  third  from  end  execut- 

cl 

able  FORTRAN  statement  of  subroutine  NMDFN  from 

FPP  = RPP(1,1)*A(1,2)  - RPP(1,2)*(GU  + A(l,l))  (3.1) 


to 


FPP  = RPP(l.l) . 


(3.2) 
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$NAM1  NSTAKT=1,  NPRNT=1,  NPNCH=-1,  NCMPL=-1  $END 
$NAM2  IMAX=24, 


ZI»1. ,2. ,4. ,6. ,8. ,10. ,12. ,14. ,16. ,18. ,20. ,25. ,30. ,35. ,40. ,45. ,55. , 
65. ,75. ,85. ,95. ,105. ,115. ,125. , 


T=292, ,288. ,270. ,260. ,249. ,236. ,225. ,215. ,205. ,198. ,205. ,215. ,227. , 
237. ,249. ,265. ,260. ,240. ,205. ,185. ,184. ,200. ,250. ,400. ,570. , 


LANGLE-1, 

WINDY=2S*0.0, 

WANGLE«2S*0.0 

$END 

$NAM4 


THETKD  *=35. , 

VI  *=  0.143,  V2  * 0.3318, 

041  * 0.001,  042  * 0.031, 

N04I  = 30,  NVPI  = 80, 

MAXM0D  = 10 
$END 

$N^a  NSTART=6 , NPRNT=1,  NPNCH=-1,  NCMPL=-1  $END 


Figure  1.  Listing  of  input  data  required  to  generate  tabulations  of 
and  R.?  versus  phase  velocity  and  angular  frequency  in  the 
vicinity  of  the  dispersion  curves  for  the G Rq  and G R^  modes. 
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260  340  420  500 


SOUND  SPEED  (m/sec) 


Figure  2,  Model  atmosphere  showing  sound  speed  versus  altitude  for  numer- 
ical example  treated  in  the  present  chapter.  The  atmosphere  is 
bounded  by  an  isothermal  upper  half  space  beginning  at  125  km 
altitude. 
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vp 

Ru 

R12 

0«EbA= 

.30928-02 

.14300+00 

.21671+01 

-.65152+02 

♦14639+00 

-.72963-01 

-.22523+02 

.14773+00 

-.1999?.+0l 

,16898+02 

» 15017+00 

-.34415+01 

.49336+02 

.152:56+00 

-.43200+01 

.72532+02 

.15495+00 

— « 46324+01 

.65619+02 

.15734+00 

-.44356+01 

.88833+02 

.15973+00 

-. 38270+01 

.83475+02 

♦16212+00 

-.29260+01 

.7H14+02 

.16451+00 

-.18579+01 

.53814+02 

. 16690+00 

— . 74204+00 

,33657+02 

.16929+00 

.31761+00 

.126H+02 

.17168+00 

« 12376+01 

-.75995+01 

.17407+00 

.19579+01 

-,25568+02 

.17646+00 

.24418+01 

-.402+7+02 

.17685+00 

,26746+01 

-.50952+02 

.18124+00 

.26605+01 

-.57340+02 

.18363+00 

,24195+01 

-.59371+02 

.18602+00 

.19834+01 

-.572&1+02 

. 18641+00 

.13917+01 

-.51424+02 

.19080+00 

♦68860+O0 

-.42421+02 

.19319+00 

-.80574-01 

-.30906+02 

.19558+00 

-.871B5+00 

-.17582+02 

.19797+00 

-.16447+01 

-.31561+01 

.20036+00 

-.23657+01 

,11690+02 

.20275+00 

-.29996+01 

.26326+02 

.20314+00 

-.35295+01 

.40198+02 

.20753+00 

-.39379+01 

.52832+02 

.20992+00 

-.42158  HJi 

.63849+02 

Figure  3.  Sample  printout  of  R^  and  R^  versus  phase  velocity  for  a 
fixed  value  of  angular  frequency.  Output  generated  with 
the  input  data  of  Fig.  1. 
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To  obtain  v.  (to),  one  need  only  change  the  same  statement  to 

D 

FPP  = RPP(1,2) . (3.3) 

The  same  limits  for  phase  velocity  and  angular  frequency  as  are  used  for 

the  calculation  of  and  should  be  used  in  the  calculations  for  vfl, 

v , and  v^.  In  our  example,  when  these  limits  are  used,  the  GR^  mode 

corresponds  to  mode  // 3 , and  the  GRq  mode  corresponds  to  mode  #4  for  the 

case  when  v (to)  is  calculated.  For  the  cases  when  v (to)  and  v,  (to)  are 
n a b 

calculated,  the  GR^  mode  corresponds  to  mode  #4  and  the  GRq  mode  corre- 
sponds to  mode  it 6.  A sample  output  listing  of  v (to),  v (to)  and  v,  (to)  for 

n 3 d 

the  two  modes  is  given  in  Fig.  4.  An  additional  listing  of  vn(to), 
v (to),  and  v,  (to)  for  the  two  modes  versus  various  values  of  to  is  given 

fl  D 

in  Table  1. 


3.3  CALCULATION  OF  a AND  $ 


The  next  step  in  the  procedure  is  to  manually  calculate  values  for 
the  variables  a and  6 which  enter  into  an  approximate  version  [Eq.  (9)  in 
Scientific  Report  No.  1]  of  the  eigenmode  dispersion  function.  These 
parameters  represent  the  partial  derivatives  of  R^  and  R^>  respectively, 
with  respect  to  phase  velocity  v evaluated  at  v=va  and  v=v^,  respectively. 
Since  R^  and  R^  also  depend  on  w,  a and  6 may  be  considered  as  functions 
of  angular  frequency  (but  not  of  phase  velocity) . 


It  may  be  recalled  that  va(u>)  and  v^(co)  are  values  for  the  phase 
velocity  at  which  R^  and  R^>  respectively,  vanish.  From  the  listing 
of,  say,  Rj^  versus  v and  to,  let  the  adjacent  values  R.^,  R211*  R311  an<* 
R4H  for  R.^  corresponding  to  the  values  for  phase  velocity  v^,  V2p 
and  v^,  respectively  (for  some  chosen  to) , such  that  V£^  and  v^  brackett 


a value  for  v ; 

a 


^211  anC*  R311  wou^°  then  be  of  opposite  sign.  In  the 


listing  of  v,  R^,  R^  for  various  to,  the  values  for  v should  all  turn 
out  to  be  equally  spaced.  Given  this  fact,  it  is  possible  to  reasonably 
approximate  a from  the  listings  of  R^  by  the  formula 


a = (l/Av1)([5/6]e11+[l/123f11+[l/4]g11h11) 


(3.4) 
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.012*75  .31185606 
.013407-  .31181006 
-014438  .3)  1775°7 
.01546°  .31172082 
.016*01  .31187509 
.017*32  .31161209 
.018*63  .31153394 
•019M70  .31148610 
.019879  .31148516 
.019*95  .31142505 
.019853  .31138841 
•020* 11  .311345)5 
.020*26  .31122480 
.021*5*  .31029529 
.021*5°  .31029116 
.022005  .30790129 
.02213°  .30551142 
.022*73  .30475278 
.022240  .30312155 
.02232°  .30073168 
.022412  .29834181 
.022490  .29595194 
.02256b  j 29356207 
.022*39  .29117220 
.02268°  .28948366 
.022710  .28878233 
.022779  .28639246 
.022846  .28400259' 
•022°12  .28161272 


< GRQ  MODE 

w v„ 
a 

.001030  .31205939 
.002*61  .31205552 
.003093  .31204906 
.004124  .31204001 
.005156  .31202834 
.006187  .31201405 
.007218  .31199710 
.008250  .31197748 
.009281  .31195515 
.010*12  .31193006 
.011344  .31190215 
.012375  .31187139 
.013407  .31183768 
.014438  .31100093 
.01546°  .31176104 
.016*01  ,31171786 
.017532  .31167120 
.018*63  .31162067 
.019*9*  .31156653 
.020*26  .31150781 
.021658  .31144415 
.022*8°  .31137478 
.023720  .31129855 
.024752  .31121368 
.025783  .31111721' 
.026*14  .31100382 
» 027*46 ,3108b276 
.028877  .31066848 
,029°09 .31034189 


“ vb 

.001030  .31209836 
,002061  .31209447 
,003093  .312C07°9> 
,004124  .31207803 
,005156  .31206/27 
.00610'  .31205*03 
,007216  .31203620 
.000250  .31201679 
.009281  .31199478 
,010312  .31197016 
.011344  .31194291 
.012375  .31191302 
,013407  .3Ue8045 
.014438  .31184518' 
,015469  ).311(>07l4i 
.016001  .31176630 
.017532  .31172258 
.018563  .31167591 
.019595  .31162620 
.020626  .31157334 
.021658  .31151721 
.022689  .31145763 
.023720  .31139444 
.024752  .31132738 
.025783  .31125619 
.026814  .31118049 
,027846  .311099b4 
,028877  .31101364 
,029909  .31092114 


GRX  MODE 


.013407  .22781499 
.013*24  .22664568 
.014040  ,22425580 
.014424  .22186593 
.014438  .22177526 
.014778  .21947606 
.015107  .21708619 
.015413  .21469631 
w01546°  .21423833 
.01569°  .21230644 
, 015°66  .20991657 
.016217  .20752670 
.016453  .20513682 
.016501  .20463309 
.016675  .20274b95 
.016886  .20035700 
.017085  .19796721 
.017274  .19557733 
,017'>54  .19318746 
.017*32  .19211887 
.017626  .19079759 
.017790  .10840772 
,017°46  .10601784 
,018096  .10362797 
.018240  .10123010 
L010378  .17804023 
1.018*10  . 17645036 
.018*63  .17547997 
.018*38  .17406840 


.001830  ,24434330 
.002061 ,24409612 
.003093 .24367787 
.003*55 .24337478 
.004124  .24307087 
.005156  .24220453 
.006187  .24127431 
.006445  .24098491 
.007218  .24001984 
.008181  .23859504 
.008250  ,23848240 
.009281  .2.3660913 
.00947°  .23620517 
.010312  .23432740 
.010*18  ,23381529 
.011*44  .23153720 
.011381  ,2.3142542 
.012115  .22903555 
.012375  .22809942 
.012752  .2?6b4560 
.013311  .22425580 
.013407  .22301942 
.013*0°  ,22106593 
.014255  .21947606 
.014438  ,21842295 
.014*59  ,21708619 
.015027  .21469631 
.015364  .21230644 
,01546°  ,21l51b53 


“ Vb 

,001030  .25073465 
.001738  ,25'J5it4nO 
,002061  .25u42454 
,003093  ,2.499002° 
.004124  ,24°i';0f)7 
,00513b  ,24oj  5°oC 
,005160  ,?.46i6453 
,006187  ,24o°c?57 
,00b963  .24576466 
,007218  .24535036 
.008250  .2434bl02 
'.008293  .24337476 
,009261  .2.4110333 
i,0093b2  .24(i°H4fn 
',010260  .23o5°p)|)4 
,010312  ,238-44366 
,011034  , 236205 1 7 
.011344  ,235.14877 
.011712  ,2334)1529 
,012314  .23142542 
,012375  ,2311681)6 
,012855  .22903555 
,013345  .22064568 

,013407 .22632580 
,013790  .22425500 
,014199  .22106563 
,014438  ,22056670 
,01457b  ,21947606 
,014922  ,21700619 


figure  A.  A sample  output  listing  of  v^Cio),  and  v^(co)  for  the 

G Rq  and  G modes. 
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where 

Avl  = V41  " V31  = V31  - V21  “ V21  " V11 
ell  = R311  " R211 

fll  " R411  ~ R311  + R211  ” Rlll 

811  = (R211  " R311^ell 


(3.5a) 


(3.5b) 


(3.5c) 


(3.5d) 


hll  R311  + R211  " Rlll  ' R411 


(3.5e) 


In  like  manner,  from  the  listing  of  R^2  versus  v and  u>,  if  one  lets  the 

adjacent  values  R^2>  ^212’  R312'  an£*  R4l2  ^or  R12  corresPonc*  to  t*ie 
values  for  phase  velocity  v^2,  v22>  v32>  and  v^2,  respectively  (for  some 
chosen  oi) , such  that  v22  and  v^2  bracket  a value  for  v^»  then  one  can 
approximate  3 by  the  formula 


3 - (l/Av2)([5/6]e12  + [l/12]f12  + [l/4]g12h12)  (3.6) 

where  Av2>  e^2,  f^2,  g^2>  and  h^2  are  defined  by  equations  analogous  to 
Eqs.  (3.5)  (last  subscript  changed  from  1 to  2) . 


Because  we  use  a numerical  method  (i.e.,  that  described  above)  to 
calculate  a derivative  (it  would  be  preferable  to  have  an  explicit  formula), 
there  is  a small  amount  of  numerical  noise  in  the  tabulation  versus  to  of  a 
and  3 computed  in  the  above  manner.  This  noise  is  noticable  only  for  the 
GR^  mode  and  may  for  all  practical  purposes  be  filtered  out  by  plotting  a 
and  3 versus  to  and  then  drawing  smooth  curves  through  the  respective  sets 
of  points.  (See  Figs.  5 and  6.)  While  this  procedure  is  somewhat  labori- 
ous, ic  circumvents  doing  additional  runs  of  the  program  to  get  values  of 
R,^  and  R^2  at  more  closely  spaced  values  of  phase  velocity.  It  also  cir- 
cumvents a somewhat  elaborate  computer  programming  chore  which  would  do 


sec/km) 


6 

w (sec-1) 


figure  6 


A plot  of  the  parameter  3 versus  u>  for  theGR.  mode.  The  para- 
meter 3 is  9R  /9v  evaluated  at  the  phase  velocity  where 


such  steps  automatically.  (We  suspect  that  the  programming  time  would 
surpass  all  time  which  would  ever  actually  be  spent  on  manual  circula- 
tions such  as  described  above.)  In  any  event,  in  view  of  the  relatively 
small  values  of  which  are  actually  obtained  (as  described  further 
below)  and  in  view  of  the  recommendations  (also  given  further  below) 
concerning  the  use  of  the  same  k^  in  many  different  types  of  calculations, 
the  accuracy  of  the  a and  (2  so  obtained  is  more  than  sufficient. 

3.4  CALCULATION  OF  COMPLEX  PHASE  VELOCITY 

The  applicable  expression  for  calculation  of  a mode's  phase  velocity 

(real  above  cutoff  frequency,  complex  below)  is  Eq.  (10a)  in  Scientific 

Report^  No.  1 (which  for  brevity  is  not  repeated  here).  This  involves 

parameters  v and  v,  (whose  computation  is  described  in  Sec.  3.1),  and 
* E D 

X,  which  may  be  considered  as  a function  of  to  and  which  is  defined  by 
Eq.  (10b)  in  the  prior  report.  This  latter  quantity  X depends  on  S/a, 

A^,  G and  A^*  The  latter  three  are  computed  by  taking  the  phase  velo- 
city as  v and  using  Eqs.  (4),  (7a),  and  (7b)  of  the  prior  report. 

E 

These  calculations  are  straight  forward,  and  do  not  require  detailed 
explanation.  Listings  of  G,  A^,  A and  X for  various  values  of  to 
and  for  the  GR^  and  GRQ  modes  are  given  in  Table  1. 

As  explained  in  the  prior  report,  below  cutoff  (that  is,  below  to  = 
0.0125  rad/sec  for  GR^  and  below  to^  = 0.0118  rad/sec  for  GR^,  in  the  run- 
ning example)  the  real  part  k„  of  the  horizontal  wave  number  is  the  real  part 

(1)  K (1) 

of  <o/v  , and  the  imaginary  part  k is  the  imagimary  part  of  <o/v  . 

Finally,  the  extension  by  first  iteration  of  the  normal  mode  dispersion 

curves  below  cutoff  is  obtained  by  simply  calculating  to/k^.  Listings  of 

and  GR^  modes  are  given  in 


Table  1.  Plots  of  k^  and  to 
3.5  INPUT  DATA  FOR  GRg  AND  GR;[ 

The  present  version  of  INFRAS0NIC  WAVEFORMS  allows  for  the  possibil- 

, imaginary  component  k^,  and  source  free  ampli- 
tude AMP  to  be  input  as  functions  of  angular  frequency  to  for  any  given 


ity  of  phase  velocity  to/k^ 


/k^  are  given  in  Fig.  7. 
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X 
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-3633 

0.13695917 

-2.8971705 

0.040308491 

0.008250 

0.23848240 

0.24346182 
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-3770 

0.14232483 

-3.0224265 

0.033973041 

' 0.011344 

0.23153728 

0.23514877 

100.0 

-4144 

0.15281704 

-3.2673565 

0.019880611 

0.001030  1.9394832  + 0.630205181  4.96794  x 10  1 4.0319  x 10_J  0.25546528 
0.005156  1.9560589  + 0.575696111  2.19268  x 10_7  0.0204383  0.25269766 
0.008250  1.9813366  + 0.472946441  2.67086  x 10~*  '0.0333205  0.24759561 
0.011344  1.9381840  + 0.252146541  2.05014  x 10_*  0.0474121  0.23926355 


Table  1. 


Tabulation  of  frequency  dependent  parameters  for  the  GIL 
and  GR-  inodes.  Tabulation  is  for  frequencies  below  u 
cutoff,  definitions  of  the  various  quantities  are  given 
in  the  text  and  in  Scientific  Report  No.  1. 
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Figure  7.  Numerically  derived  plots  of  phase  velocity  w/kR  and  of  the 
imaginary  part  k^  of  the  complex  horizontal  wavenumber  k ver- 
sus angular  frequency  u>  for  the  0 Rq  andOR^  modes.  Nominal 
lower  frequency  cutoffs  for  these  modes  are  as  indicated. 

Note  that  kT  is  identically  zero  above  the  cutoff  frequency. 
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mode.  The  only  modes  for  which  this  is  necessary  are  GRq  and  GR^.  This 
input  data  is  partly  obtained  by  the  procedure  described  above.  Here 
we  describe  how  the  remaining  portion  of  the  input  data  is  obtained. 

To  obtain  values  of  phase  velocity  and  source  free  amplitude  at 
frequencies  above  cutoff  one  uses  the  current  version  of  INFRASONIC 
WAVEFORMS  with  the  variable  NCMPL  of  NAMELIST  NAM51  set  less  than  zero. 

This  gives  an  output  essentially  identical  to  what  would  be  obtained 
with  the  original  version  of  the  program.  The  input  data  for  this  run 
would  be  the  same  as  if  one  were  computing  waveforms  without  considera- 
tion of  leaky  modes.  A sample  listing  of  such  input  data  is  given  in 
Fig.  8.  The  run  will  give  mode  numbers  and  tabulations  of  phase  velo- 
city VPHSE  and  amplitude  AMP  versus  angular  frequency  OMEGA  for  the  GRq 
and  GR^  modes  at  frequencies  above  cutoff.  The  only  output  which  need 
be  retained  for  future  use  are  the  tabulations  of  VPHSE  versus  OMEGA  for 
these  two  modes,  since  amplitudes  at  frequencies  above  cutoff  are  comput- 
ed automatically  in  the  run  which  utilizes  this  information  as  input  data. 

A sample  tabulation  of  the  pertinent  output  (for  the  running  example 
considered  here)  is  given  in  Fig.  9. 

Input  data  of  phase  velocity  VPHSE  and  amplitude  AMP  for  frequen- 
cies below  cutoff  are  obtained  by  a second  run  of  the  program,  again 
with  NCMPL  < 0,  only  with  the  original  model  atmosphere  replaced  by  one 
which  has  a thick  intermediate  layer  plus  on  upper  half  space  replacing 
the  original  upper  half  space.  Thus,  in  the  NAM2  input  list,  IMAX  is 
increased  by  one,  the  original  ZI  and  T are  unchanged,  but  one  adds  a 
ZI  for  the  new  value  of  IMAX  which  is,  say  100  km  larger  than  the  largest 
ZJ  for  the  original  model  atmosphere;  the  temperature  T for  the  new  IMAX 
+ 1 layer  (i.e.  for  the  new  upper  half  space)  is  set  equal  to  an  arbitrarily 
very  large  value  (say,  2x10^  °K).  Doing  this  will  artificially  shift  the 
cutoff  frequencies  for  GRq  and  GR^  down  to  values  which  are,  for  all 
practical  purposes,  equal  to  zero.  The  input  data  for  this  run  should 
include  choices  of  angular  frequency  and  phase  velocity  limits  (VI,  V2, 

0M1,  and  0M2  of  NAM4)  which  are  appropriate  for  an  exploration  of  the 
properties  of  GRq  and  GR^  at  frequencies  below  their  original  cutoff  frequen- 
cies. It  is  imperative  that  0M2  not  be  too  large  since  INFRASONIC  WAVEFORMS  will 


figure 
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$NAM1  NSTART=1,  NPRNT=1,  NPNCH=-1,  NCMPL=-1  $END 
$NAM2  IMAX=24, 


ZI=1., 2., 4., 6., 8., 10., 12., 14., 16., 18., 20., 25., 30. ,35., 40. ,45., 55., 

65. . 75. .85. .95. .105. .115. .125. , 

T-292. ,288. ,270. ,260. ,249. ,236. ,225. ,215. ,205. ,198. ,205. ,215. ,217. , 

237. . 249. .265. .260. .240. .205. .185. .184. .200. .250. .400. .570. , 
LANGLE  = 1, 


WINDY  = 25*0.0, 
WANGLE  = 25*0.0 
$END 
$NAM4 


1HETKD  - 35., 

VI  * 0.15,  V2  = 0.495, 
$M1  * 0.005,  $M2  = 0.1, 
NCMI  = 30,  NVPI  = 30, 
MAXM3D  * 8 


$END 

$NAM6  ZSCRCE  =3.0,  Z0BS  =0.0  $END 
$NAM8  YIELD  = 50.  E3  $END 
$NAML0  R0BS  = 15000 , , 

TFIRST  = 46.2E3,  TEND  = 52.2E3, 

DELTT  =15., 

I#T  = 11, 

$END 

$NAM1  NSTAKT=6  $END 


8.  Input  data  to  obtain  phase  velocity  versus  angular  frequency 
above  cutoff  frequency  for  the  G andGR.^  modes. 
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gr2  MDBE 


GR o MODE 


OMEGA 

Vn 

.01*182  73'; 

. 31175833 

«Qlc4o552 

. 211577C7 

.01723  , -,3 

.31162333 

. OiclO  1 4 5 

. 3115712C 

. ;*8322t; 

.3115:35; 

.0193219  3 

.3U45  75C 

. 0197  '•* . 3 d 

. 21 1*..: 4 92 

. 02137  j31 

. 31l7931C 

« 12 151 o 39 

. 21-0 C 3^5 

.024.7837  9 

.3093:225 

. 02232362 

« 3 u 76 2 921 

. 02210  3 59 

. 30614224 

. 02 21-14 36 

. 3C53S371 

. 02216121 

.30502694 

.02217751 

. 3C465517 

. 02*19823 

. 3£ii6532 

. 0222c  3 76 

.30391164 

.02223357 

.3021631C 

.02229509 

.30168103 

. 02239972 

. 29870690 

• 02259  j 55 

.29275362 

. 02293273 

. 28G862C7 

.02301729 

.27771666 

. 02  329-2  5 6 

• 26896552 

.02353065 

. 257C6397 

.02331369 

. 24517241 

, 02906701 

.23327586 

. 02932538 

,22137931 

.12953365 

« 2C9h8276 

. 02*165517 

« 20622217 

.02939791 

.19758621 

, 02438335 

. 19163793 

.02512335 

.18568966 

• 02526362 

.17974138 

. 025420  62 

. 173753.C 

. 02558111 

.16784483 

. 0256o5  20 

.16487069 

.02575227 

.16139655 

. G25'33679 

.15594828 

. 026138  C7 

.15000000 

OMEGA 

Vn 

. 01462759 

. 21913G1S 

. 01601253 

,2094827c 

.016^6552 

.20500285 

.01711598 

.19758621 

.01728443 

.19544661 

. 0 1 7 so  o s 0 

.19163793 

.01756593 

,18568966 

. 01310  345 

.18350434 

. 01632569 

.17974126 

. 0 1 3 os  292 

, 17379310 

. 01892241 

. 16844746 

.01595156 

.16784483 

. 01909212 

.16487069 

.01922762 

. 16189655 

« 01933190 

,15953747 

.01648594 

,15594828 

.01973352 

.1533000: 

Figure  9.  Sample  output  of  phase  velocity  versus  angular  frequency  at 
frequencies  above  cutoff  for  the  G andGR^  modes  corres- 
ponding to  the  input  data  of  Fig.  8. 


-30- 


encounter  numerical  difficulties  at  higher  frequencies  when  the  height 
of  the  upper  half space  is  as  high  as  considered  here.  (If  it  were  not 
for  this  fact,  this  run  could  be  used  to  generate  essentially  the  same 
information  as  in  the  previous  run.)  For  comparison,  Fig.  10  indicates 
the  types  of  atmospheric  profiles  used  in  the  two  runs  with  NCMPL  < 0. 

The  second  run  gives  values  for  the  source  free  amplitudes  AMP  and 
phase  velocities  VPHSE  for  the  and  GR^  modes  for  frequencies  below 
cutoff.  The  latter  of  these  are  expected  to  be  virtually  identical  to 
the  co/kj^  which  are  obtained  by  the  method  described  in  Sec.  3.4.  Also, 
the  source  free  amplitudes  are  expected  to  match  on  smoothly  to  those 
obtained  from  the  prior  run  for  high  frequencies  even  though  the  two 
model  atmospheres  are  not  identically  the  same.  (This  is  because  the 
energy  transported  by  the  GRq  and  GR^  modes  is  predominantly  in  the 
lower  atmosphere.)  Furthermore,  we  expect  these  amplitudes  to  be  virtual- 
ly the  same  as  would  be  obtained  by  the  modified  residue  method  described 
in  Scientific  Report  No.  1 for  the  original  model  atmosphere.  The  actual 
amplitudes  should  have  a small  imaginary  part,  but  in  view  of  the  rela- 

_3 

tively  small  values  of  the  (less  than  10  nepers/km)  obtained,  we 
are  confident  that  this  imaginary  part  may  be  neglected  to  an  excellent 
approximation.  The  only  aspect  of  the  leaking  phenomena  which  conceiv- 
ably could  be  of  significance  is  the  accumulative  exponential  decay 
represented  by  the  factor  exp^k^r),  which  is  retained  in  subsequent 
calculations. 

Sample  input  data  for  this  second  run  with  NCMPL  < 0 are  given  in 
Fig.  11;  a listing  of  the  output  values  for  OMEGA,  VPHSE,  and  AMP  below 
the  original  cutoff  frequencies  for  the  GRq  and  GR^  modes  of  the  running 
example  is  given  in  Fig.  12, 


3.6  WAVEFORM  SYNTHESIS 

The  final  step  in  the  waveform  synthesis  is  to  run  the  program 
INFRASONIC  WAVEFORMS  with  input  data  including  the  information  concern- 
ing the  GRq  and  GR^  modes  computed  as  described  in  the  preceding  two 
sections.  The  essential  difference  between  this  run  and  the  first  such 


ALTITUDE  (km) 


SOUND  SPEED  (m/soc) 
(0) 


SOUND  SPEED  (m/sec) 
(b) 


Figure  10,  Two  model  atmosphere  profiles;  the  first  is  the  same  as  in 

Fig,  2;  the  second  has  the  original  upper  half space  replaced 
by  a layer  of  finite  but  large  thickness  with  a halfspace 
above  it  of  extremely  high  temperature  and  sound  speed. 
Second  atmosphere  is  used  to  generate  phase  velocities  and 
source  free  amplitudes  at  frequencies  below  nominal  cutoff 
frequencies. 


-32- 


$NAM1  NSTART»1,  NPRNT=1,  NPNCH=-1,  NCMP3j=-1  $END 
$NAM2  IMAX=25 , 


ZI=1. ,2. ,4. ,6. ,8. ,10. ,12. ,14. ,16. ,18. ,20. ,25. ,30. ,35. ,40. ,45. ,55. , 

65. . 75. .85. .95. .105. .115. .125. .225. , 

T-292. ,288. ,270. ,260. ,249. ,236. ,225. ,215. ,205. ,198. ,205. ,215. ,227. , 

237. . 249. .265. .260. .240. .205. .185. .184. .200. .250. .400. .570. .2.E7, 
LANGLE=1, 


WINDY=26*0.0, 

WANGLE=26*0.0 

$END 

$NAM4 

THETKD=  35., 


VI  = 0,18,  V2  = 0.34, 

0M1  = 0.001,  0M2  = 0.02, 
N0MI  = 30,  NVPI  = 30, 
MAXN#D  = 8 
$END 

$NAM1  NSTAKT=6  $END 


figure  11,  Input  data  to  obtain  phase  velocity  and  source  free  amplitudes 
below  nominal  cutoff  frequencies  for  the  G Rq  and  G R^  modes. 
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GRQ  MODE 


OMEGA 

VPHSE 

AMP 

00100 

.31206 

-.03102934 

00166 

.31205 

-.03101968 

00231 

.31205 

-.03100520 

00297 

.31205 

-.03098589 

00362 

.31204 

-.03096170 

00428 

.31203 

-.03093260 

00493 

.31203 

-.03089855 

00559 

.31202 

-.03085951 

00624 

.31201 

-.03081546 

00690 

.31200 

-.03076637 

00755 

.31198 

-.03071222 

00821 

.31197 

-.03065299 

00853 

.31196 

-.03062146 

00886 

.31196 

-.03058865 

00952 

.31194 

-.03051919 

01017 

.31192 

-.03044457 

01083 

.31190 

-.03036475 

01148 

.31188 

-.03027970 

01214 

. 31186 

-.03018936 

01279 

.31184 

-.03009365 

01345 

.31182 

-.02999249 

01410 

.31179 

-.02988574 

01476 

.31176 

-.02977324 

01541 

.31173 

-.02965474 

01607 

.31170 

-.02952988 

01672 

.31166 

-.02939809 

01738 

.31162 

-.02925846 

01803 

.31158 

-.02910932 

01869 

.31152 

-.02894743 

01934 

.31146 

-.02876557 

02000 

.31136 

-.02854424 

GRX  MODE 


OMEGA 

VPHSE 

AMP 

00100 

.28308 

-.00003660 

00166 

.28237 

-.00003722 

00231 

.28129 

-.00003831 

00297 

.27983 

-.00004009 

00317 

.27931 

-.00004082 

00362 

.27797 

-.00004295 

00428 

.27567 

-.00004754 

00473 

.27379 

-.00005235 

00493 

.27289 

-.00005510 

00559 

.26958 

-.00006819 

00582 

.26828 

-.00007507 

00624 

.26569 

-.00009291 

00668 

.26276 

-.00012320 

00690 

.26116 

-.00014672 

00740 

.25724 

-.00024331 

00755 

.25598 

-.00029422 

00805 

.25172 

-.00063749 

00821 

.25040 

-.00084929 

00853 

.24780 

-.00156605 

00878 

.24621 

-.00225436 

00886 

.24571 

-.00248871 

00937 

.24345 

-.00335025 

00952 

.24292 

-.00346229 

01017 

.24075 

-.00365399 

01019 

.24069 

-.00365562 

01083 

.23860 

-.00365194 

01148 

.23628 

-.00358599 

01178 

.23517 

-.00354504 

01214 

.23372 

-.00348656 

01279 

.23084 

-.00336176 

01304 

.22966 

-.00330833 

01345 

-.22758 

’ -.00321275 

01406 

. 22414 

-.00305033 

01410 

. 22387 

-.00303760 

01476 

.21961 

-.00283239 

01490 

.21862 

-.00278409 

01541 

.21469 

-.00259141 

01561 

.21310 

-.00251310 

01607 

.20895 

-.00230706 

01621 

.20759 

-.00223902 

01672 

.20220 

-.00196998 

01674 

.20207 

-.00196321 

01720 

. 19655 

-.00168722 

01738 

. 19420 

-.00156992 

01761 

. 19103 

-.00141297 

01798 

. 18552 

-.00114281 

01803 

. 18462 

-.00109941 

01831 

. 18000 

-.00087957 

Figure  12.  Sample  output  of  phase  velocity  and  source  free 

amplitude  at  frequencies  below  cutoff  for  the  GRn 
and  GR1  modes  corresponding  to  the  input  data  or 
Fig.  II. 
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run  described  in  Sec.  3.5  is  that  one  sets  NCMPL  > 0,  and  that  one  supplies 
values  for  the  parameters  in  the  input  list  NAM51.  A listing  of  the  in- 
put data  for  the  run,  allowing  for  the  leaking  modes,  and  appropriate  to 
our  running  example  is  given  in  Fig.  13.  The  phase  velocities  input  for 
the  GRq  and  GR^  modes  are  those  derived  from  the  two  computer  runs  describ- 
ed in  Sec.  3.5.  The  source  free  amplitudes  for  these  modes  are  supplied 
only  for  frequencies  below  cutoff  and  these  are  derived  from  the  second 
run  of  Sec.  3.5.  The  imaginary  parts  of  the  wave  number  are  the  numbers 
whose  computation  is  described  in  Sec.  3.5.  The  reason  we  use  the  phase 
velocities  below  cutoff  as  computed  in  Sec.  3.5,  rather  than  as  in  Sec. 

3.4,  is  that  both  calculations  agree  to  the  same  order  of  accuracy  as 
would  be  expected  for  the  approximations  inherent  in  the  method  of  Sec. 

3.4.  Consequently,  we  expect  the  values  from  the  computer  run  to  be  the 
more  nearly  accurate.  Of  course,  the  values  of  k^  have  to  be  computed 
by  the  method  of  Sec.  3.4  since  the  computer  program  in  its  present  form 
does  not  compute  these  directly. 

In  Fig. 14  we  show  CALCOMP  plots  of  modal  and  total  waveforms  ob- 
tained before  and  after  the  inclusion  of  leaking  modes.  (This  is  for 
our  running  example,  15,000  km  from  a 50  megaton  burst  at  3 km  altitude, 
the  receiver  being  on  the  ground.)  One  may  note  that  the  inclusion  of 
the  leaking  modes  eliminates  the  spurious  precursor  in  the  waveform  and 
raises  the  amplitude  of  the  first  peak.  It  is  also  important  to  note 
that  the  waveform  with  leaking  modes  included  begins  with  a pressure 
rise.  This  is  what  one  would  probably  expect  from  intuition  alone,  and 
would  also  appear  to  be  more  realistic. 


3.7  FURTHER  EXAMPLE  (H0USAT0NIC) 

To  further  explore  the  effects  of  inclusion  of  leaking  modes,  we 
chose  the  case  of  waveforms  observed  at  Berkeley,  California,  following 
the  Hausatonic  detonation  at  Johnson  Island  on  October  30,  1962.  A 
previous  comparison  of  theoretical  and  observed  waveforms  for  this  event 
is  given  in  the  Geophysical  Journal  article  by  Pierce  and  Posey This 


case  is  also  the  central  example  in  the  1970  AFCRL  report  by  Pierce  and 
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SNAM1  NSTART-  1 ,NPRKT»  1 , NrNCI!--l,NCMPL-l  SEND 
SNAM2  I MAX-24 , 

21-1.  ,2. ,4. ,6. ,S. ,10. ,12. ,14. ,16. , 16. , 20, ,25, ,30, ,3S. ,40. ,4 S. ,55. , 

65.. 75..55..95..105..115..125. , 

T-292.,28S.  ,270. ,260. ,249. ,230. ,22S. ,21S. ,20S. ,198. ,205. ,215.  ,227. , 

257..  249.. 265.. 260.. 240.. 205.. 185.. 184.. 200.. 250.. 400.. 570., 

LANGLE-1 , 

W1NDY»25*0.0, 

KANGLE-25‘0.0, 

SEND 

SNAM4 

TIIETKD- 55. , 

VI  • 0.15,  V2  • 0.495, 

0M1  - 0.005,  0H2  • 0.1, 

N0MI  - 50,  NVP1  • 50, 

MAXM0D  • 8, 

SEND 

SNAM51  KNGR1-2,  NPGR1-2S,  HNGRO-3,  NPGRO-47, 

0MGR1-0. 001, 0.00251 ,0.00428, 0.00582, 0.00805, 0.01017, 0.01083, 0.01178, 
0.01483,0. 01592, 0.01647, 0.01706, 0.01729, 0.0 1252,0. 01793, 0.0181, 

0. 0183, 0. 01864, 0. 01 892, 0. 01922, 0. 01953, 0.0193S, 0,01948, 0.01961, 

0.01974, 

VPGR1-0. 28308, 0.27985, 0.27567, 0.26828, 0.251 22, 0.24075, 0.23860, 0.23517, 
0.21913,0.21034,0.205,0.19828,0.19545,0.19224,0.18621,0.1835,0.18017, 

0. 17414, 0.1684S.0. 16207, 0.1S9S4.0. 15905,0. 15603, 0.1 5302,0.  IS, 

0MGRO-0. 001,0. 00231, 0.0042S, 0.00624, 0.00821 ,0.01017, 0.01083, 0.01483, 0.01647, 
0.01728,0.0181,0.01892,0.01933,0.01974,0.02138,0.02177,0.02207,0.02214, 
0.02216,0.02218,0.02219,0.0222,0.02221  ,0.02227,0.02233,0.02253,0.02288, 
0.02302,0.0232,0.02349,0.02377,0.02404,0.02430,0.02456,0.02466,0.02483, 
0. 02497, 0. 02511, 0.02S26.C. 02541, 0.02S47, 0.02575, 0.02584, 0.02588, 0.02593, 
0.02603,0.02614,  - ' ••  'V 

VPGR0-0. 31206, 0.31205, 0.31203, 0.31201  , 0.31 197, 0.31192, 0.31 190, 0.31176, 

0.31168,0.31163,0.31157,0.3115,0.31146,0.31141,0.31079,0.30991,0.30689, 
0.30539,0.30501,0.30463,0.30526,0.30417,0.30388,0.30237,0.30086,0.  29483, 
0.28276,0.27772,0.27069,0.25862,0.24655,0.23448,0.22241,0.21034,0.20622, 
0.19828,0.19224,0.18621,0.18017,0.17414,0.17177,0.16207,0.15905,0.15761, 
0.15603,0.15302,0.15, 

AMPGR1--0. 00003660, -0.00004009, -0.00004754, -0.00007507, -0.00063749, 
-0.0036S399, -0.00365194, -0.00354504, 

AMPGR0--0. 03102934, -0.03100520, -0.0309326, -0.03081 546, -0.03065299, 
•0.03044457,-0.03036475, 

AK1GR1-4.  OE-  5, 9.0E-S,! . 7SE-4 ,2.4K-4 ,27E-4 ,2.5E-4 ,2.2515-4 ,1 .4E-4 ,17*0.0 , 
AK1CR0-3. OE- 8 , 6. OE-8,1 . 2E-7 ,1 .9E-7 ,2.  SE-7 ,2 . 7K-7 ,2 . 3E-  7,40*0.0, 

SEND 

SNAM6  ZSCRCE-3.0,  Z0BS-O.O  SEND 
SNAH8  Y1E1.D-50.E3  SEND 
SNAM10  R0BS  - 15000., 

TFIKS1-46.2E3,  TEND-52.2E3, 

di:lit-i5.  , 

IOPT-ll 

SEND 

SKAM1  NS1AI1T-6,  SEND 


Rgure  13,  Sample  input  data  for  synthesis  of  infrasonic  waveform  inclu- 
ding leaking  inodes.  The  data  for  the  MI  51  input  list  is  as 
derived  from  previous  computations  described  in  the  present 
chapter. 
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Figure  14,  CALCOMP  plots  of  modal  and  total  waveforms  before  and  after 
inclusion  of  leaking  modes.  Example  is  for  the  case  of  a 50 
megaton  burst  at  3 km  altitude  in  the  atmosphere  of  Fig,  2; 
receiver  is  at  distance  of  15,000  km. 
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Posey^-  , and  is  discussed  within  the  Lamb  edge  mode  theory  context  in  some 
detail  in  Posey's  thesis. ^ 


The  model  atmosphere  assumed  for  the  computation  is  exactly  the  same 
as  in  Fig.  3-12  of  the  1970  report,  only  we  let  the  upper  half  space  begin 
at  125  km  (IMAX  « 24) . Rather  than  repeat  the  tedious  calculations  of 
the  kj.  for  the  GR^  and  GR^  modes  for  this  model  atmosphere,  we  assumed  that 
they  would  be  essentially  the  same  as  for  the  running  example  in  the  pre- 
vious section.  Thus  the  steps  in  Secs.  3.5  and  3.6  needed  only  to  be 
carried  out  to  obtain  a waveform  sysnthesis. 


In  Fig.  15,  we  give  comparisons  of  the  CALCOMP  plots  for  this  event 
before  and  after  the  inclusion  of  leaking  modes.  One  may  note  that  the 
first  of  these  does  not  agree  with  the  comparable  CALCOMP  plots  in  Fig. 

3-10  of  the  1970  AFCRL  report.  This  is  of  course  because  we  have  here 
taken  the  upper  half space  to  begin  a lower  altitude.  This  choice  of 
where  the  upper  halfspace  begins  is  of  little  consequence  when  leaking 
modes  are  included,  and  consequently  the  agreement  of  the  old  computation 
with  the  leaking  mode  included  case  is  quite  substantial.  Further,  the 
new  computation  is  regarded  as  an  improvement  in  that  the  spurious  initial 
pressure  drop  has  been  eliminated. 

On  the  basis  of  the  calculations  described  above,  we  have  redrawn 
the  Fig.  7 in  the  Geophysical  Journal  article  which  compares  observed  and 
theoretical  pressure  waveforms  for  the  Housatonic-Berkeley  event.  Thif. 
revised  figure  is  given  here  as  Fig.  16.  The  only  difference  is  in  the 
center  waveform.  The  precursor  is  now  absent  and  the  first  peak  to  trough 
amplitude  has  been  changed  from  157  ybar  to  170  ybar  (less  than  10%  increase); 
the  remanider  of  the  waveform  is  virtually  unchanged.  The  discrepancy 
with  the  edge  mode  synthesis  hasn't  been  diminished  and  remains  a topic 
for  future  study.  (It  was  not  addressed  during  the  present  study.) 
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CALCOMP  plots  of  modal  and  total  waveforms  before  and  after 
the  inclusion  of  leaking  modes.  The  ovservations  were  made 
at  Berkeley,  California,  following  the  Housatonic  detonation 
at  Johnson  Island  on  30  October  1962.  The  energy  yield  assumed 
in  the  theoretical  computations  was  Id  megaton.  The  model 
atmosphere  is  as  previously  used  by  Pierce  and  Posey  in 
AICRL-70-0134,  only  the  upper  half space  begins  at  125  km. 
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ELgure  16.  Observed  and  theoretical  pressure  waveforms  at  Berkeley, 

California,  following  the  Housatonic  detonation  at  Johnson 
Island  on  30  October  1962.  The  observed  waveform  is  taken 
from  Donn  and  Shaw  (1967).  The  energy  yield  assumed  in 
the  theoretical  computations  was  10  megatons.  This  is  a 
revised  version  of  the  Tig.  7 in  the  3971  paper  by  Pierce 
and  Posey  Oeophys.  J.  Roy.  Astron.  Soc.  2£,  341-368). 

The  original  multi-mode  synthesis  figure  has  been  replaced 
by  one  including  leaking  modes. 


-40- 


Chapter  IV 


ASYMPTOTIC  HIGH-FREQUENCY  BEHAVIOR 
OF  GUIDED  MODES 


4.1  INTRODUCTION 

Due  to  temperature  and  wind  stratification,  the  earth's  atmosphere  pos- 
sesses sound  speed  channels  with  associated  relative  sound  speed  minima. 

Fig. 17  shows  a standard  reference  atmosphere  wherein  two  such  sound 
speed  channels  are  indicated;  one  with  a minimum  occurring  at  approxi- 
mately 16  km  altitude  and  the  second  with  a minimum  occurring  at  approx- 
imately 86  km  altitude.  Given  the  presence  of  such  a channel,  an 
acoustic  ducting  phenomenon  can  occur,  as  is  demonstrated  in  Fig .18, 
wherein  the  energy  associated  with  an  acoustic  disturbance  can  become 
trapped  in  the  region  of  a relative  sound  speed  minimum.  It  is  this 
mechanism  of  ducting  only  that  is  of  interest  here. 

In  the  computer  program  INFRASONIC  WAVEFORMS,  the  computation  of 
modal  waveforms  involves  the  numerical  integration  over  angular  fre- 
quency of  a Fourier  transform  of  acoustic  pressure  where  this  integra- 
tion is  truncated  at  the  high-frequency  end.  It  has  been  speculated 
that  this  abrupt  truncation  leads  to  the  generation  of  what  might  be 
called  "numerical  noise"  in  the  computer  output.  It  was  felt  useful, 
therefore,  to  extend  this  integration  beyond  the  heretofore  upper 
angular  frequency  limit  by  means  of  some  appropriate  high-frequency 
approximation.  In  the  case  of  an  atmosphere  with  just  one  sound  channel, 
the  technique  for  doing  this  is  veil  known  and  dates  back  to  a paper 
published  by  N.  Haskell  in  1951.  Haskell's  method  is  the  W.K.B.J. 

(Wentzel,  Kramers,  Brillouin,  Jeffreys)  method,  then  in  common  use  in 

quantum  mechanics,  although  its  invention  dates  back  to  CarMni^®  and 
19 

Green  in  the  early  19th  century. 

The  approximations  associated  with  the  W.K.B.J.  method  of  solution 
apply  to  the  analytical  model  on  which  the  computer  program  is  based  at 
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Figure  17,  Temperature  and  wind  speed  versus  height  profiles  for  stan- 
dard reference  atmospheres.  Calculations  in  present  chapter 
are.  for  U.  S.  Standard  Atmosphere  19C2  without  winds.  The 
presence  of  two  temperature  minima  indicates  two  sound  speed 
channels. 
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Figure  18.  Sketches  of  sound  speed  versus  height  and  acoustic  pressure 
amplitude  versus  height  for  a guided  mode  illustrating  the 
mechanism  of  acoustic  ducting  in  a sound  speed  channel  cen- 
tered at  a region  of  minimum  sound  speed.  The  energy  of 
the  disturbance  may  be  considered  as  concentrated  in  the 
height  region  between  turning  points. 
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frequencies  above  approximately  0.05  radian/sec  (periods  less  than  2 
minutes).  Below  that  limit,  effects  due  to  density  stratification  in 
the  atmosphere  and  gravitational  forces  cannot  be  neglected.  Such 
effects  therefore  are  not  germane  to  the  discussion  here. 

The  application  of  the  W.K.B.J.  method  of  solution  to  the  problem 
of  describing  propagation  of  acoustic  disturbances  in  an  atmosphere  that 
contains  two  adjacent  sound  speed  channels  has  previously  been  discussed 
in  the  literature  by  Eckart^  who  invented  the  simple  method  of  seeking 
a W.K.B.J.  model  for  each  of  the  sound  speed  channels  spearately,  then 
combining  the  results  rather  than  treating  the  problem  with  a single 
model.  In  the  present  chapter,  Eckart’s  method  is  applied  and  numerically 
verified  for  the  case  of  infrasonic  waves  in  the  atmosphere. 

4.2  THE  W.K.B.J.  MODEL 

The  W.K.B.J.  model  for  propagation  of  acoustic  disturbances  in 
a single  sound  speed  channel  may  be  considered  as  an  approximation  for 
the  acoustic  pressure  divided  by  the  square  root  of  the  ambient  density, 
which  in  general  may  be  expressed  as 

(4.1) 


where  w is  angular  frequency,  k is  the  wave  number  associated  with  the 
horizontal  dimension  x,  z is  altitude.  Here  i(i(z)  satisfies  the  reduced 
wave  equation, 


(4.2) 


where  c(z)  is  sound  speed  as  a function  of  altitude.  The  W.K.B.J.  approxi- 
mation applies  in  general  to  all  differential  equations  of  this  type  if  the 
coefficient  of  is  sufficiently  "slowly  varying."  It  would  appear  in  par- 
ticular to  be  valid  in  the  present  context  provided 
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where  X is  some  representative  wavelength  of  interest.  This  approxima- 
tion states  that  substantial  changes  in  sound  speed  should  not  occur 
within  distances  corresponding  to  a typical  wavelength  of  interest  if 
the  model  is  to  apply. 

A particular  result  of  the  W.K.B.J.  approximation  is  that  dispersion 
curves  (v  vs.  w)  of  guided  modes  are  given  by  the  equation 


(4.4) 


where  v is  phase  velocity,  n « 0,  1,  2j  3,  ...,  and  where  bottom  ant* 
zfcop  identify  the  lower  and  upper  bounds  of  the  sound  speed  channel, 
respectively.  This  integral  is  a direct  result  of  the  W.K.B.J.  method 
of  solution^,  and  its  numerical  solution  enables  the  plotting  of  disper- 
sion curves. 

4.3  COMPARISON  OF  DISPERSION  CURVES 

Particular  insight  into  the  high-frequency  behavior  of  guided  in- 
frasonic  modes  was  gained  when  the  above  integral  was  solved  numerically 
by  computer  for  both  the  upper  and  lower  channels,  the  model  atmosphere 
being  that  given  in  Fig. 17.  The  resulting  dispersion  curves  computed  in 
this  manner  are  shown  in  the  lower  portion  of  Fig  19.  One  set  of  curves 
(the  dashed  curves)  is  appropriate  to  the  W.K.B.J.  model  for  the  lower 
channel  and  the  other  set  (the  solid  curves)  is  appropriate  to  the  W.K.B.J. 
model  for  the  upper  channel.  In  the  upper  portion  of  the  same  figure 
are  shown  again  dispersion  curves  as  generated  by  the  computer  model 
INFRASONIC  WAVEFORMS.  It  should  be  mentioned  that  the  computer  model 
solves  a more  complex  problem  in  the  sense  that  the  simplifications  in- 
herent in  the  W.K.B.J.  model  are  not  present. 

As  is  illustrated  in  the  lower  portion  of  Fig. 19,  the  two  sets  of 
dispersion  curves  generated  by  the  W.K.B.J.  models  intersect  with  one 
another  at  various  points.  A comparison  of  the  dispersion  curves  shown 
in  both  the  upper  and  lower  portions  of  Fig.  19  reveals  that  these  points 
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Figure  19,  A comparison  of  theoretical  guided  mode  dispersion  curves  for 
the  l).  S.  Standard  Atmosphere  1962.  The  upper  set  of  curves 
were  generated  by  full  wave  calculations  with  the  multi-modal 
synthesis  program  INFRASONIC  WAVEFORIS,  The  lower  sets  were 
obtained  by  applying  the  W.K.B.J.  method  to  the  upper  sound 
channel  (solid  lines)  and  the  lower  sound  channel  (dashed 
lines),  respectively. 
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of  Intersection  mark  regions  of  resonant  interaction  in  the  phase  velo- 
city-angular frequency  plane  between  adjacent  modes  of  the  computer  model. 
To  better  illustrate  this  observation,  in  the  right  hand  portion  of  Fig.  20 
is  shown  one  such  region  of  interaction  with  its  corresponding  point  of 
intersection  between  two  dispersion  curves  of  the  W.K.B.J.  models  shown 
to  the  left.  It  should  be  mentioned  that  the  dispersion  curves  of  the 
computer  model  never  intersect  with  one  another.  An  analytical  explana- 
tion of  this  fact  has  previously  been  given  by  Pierce^. 

4.4  INFERENCES  CONCERNING  ENERGY  VERSUS  HEIGHT  DISTRIBUTION 

The  above  observation  may  be  stated  differently  by  saying  that,  for 
relatively  high  angular  frequencies,  the  dispersion  curve  corresponding 
to  a given  mode  of  the  computer  model  is  comprised  of  portions  of  dis- 
persion curves  from  both  sets  of  the  curves  generated  by  the  W.K.B.J. 
models.  Two  important  inferences  about  the  asymptotic  high-frequency 
behavior  of  guided  infrasonic  modes  can  be  drawn  from  this  statement. 

First,  for  some  frequency  ranges,  and  depending  on  how  dispersion  curve 
portions  match  between  curves  of  the  computer  model  and  the  W.K.B.J. 
models,  it  can  be  inferred  that  the  acoustic  energy  associated  with  a 
given  mode  is  comprised  of  energy  associated  more  with  propagation  of 
acoustic  disturbances  in  one  sound  speed  channel  than  in  the  other. 

Also,  as  frequency  increases,  this  association  alternates  back  and  forth 
between  channels.  To  illustrate,  if,  for  a small  range  of  frequencies, 
a portion  of  a dispersion  curve  of  the  computer  model  matches  (in  the 
phase  velocity-angular  frequency  plane)  a portion  of  one  of  the  W.K.B.J. 
model  curves  for  the  upper  channel,  then  that  implies  that,  for  that 
mode  and  for  that  small  frequency  range,  the  acoustic  energy  density 
associated  with  that  mode  is  greater  in  the  upper  channel  than  in  the 
lower  channel.  Secondly,  in  the  standard  reference  atmosphere,  the 
sound  speed  minimum  for  the  upper  channel  is  less  in  magnitude  than  the 
sound  speed  minimum  for  the  lower  channel.  It  can  be  inferred,  therefore, 
that  those  acoustic  disturbances  for  which  phase  velocities  are  less  in 
magnitude  than  the  sound  speed  minimum  for  the  lower  channel  are  associated 
more  with  acoustic  energy  trapped  in  the  upper  channel  than  in  the  lower 
channel,  and  thus,  for  this  reason,  do  not  contribute  significantly  to 
the  acoustic  energy  at  the  ground.  This  inference  implies  that  care  must 
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ELgure  20.  A detailed  (blown-up)  plot  of  a section  of  Eg.  19  showing 

a region  of  resonant  interaction  between  two  modes,  one  ducted 
in  the  upper  channel,  the  other  ducted  in  the  lower  channel. 
The  full  wave  calculation  (computer  model)  indicates  that  the 
two  modes  interact  such  that  the  actual  dispersion  curves  do 
not  cross,  but  indicates  that  the  W.K.B.J.  and  computer  model 
curves  are  nearly  the  same  except  in  the  region  of  resonant 
interaction. 


be  taken  as  to  which  inodes  are  chosen  to  superpose  in  the  attainment  of 
the  final  pressure  waveform  at  the  ground,  as  some  may  not  contribute. 

4.5  IMPLICATIONS  FOR  WAVEFORM  SYNTHESIS 

In  the  previous  synthesis  of  guided  pressure  waveforms  at  long  dis- 
tances, the  acoustic  modes  were  numbered  in  order  of  increasing  phase 
velocity  (i.e.,  Sq,  S^.,  S2,...,  etc.)  and  the  sum  over  modes  was  truncated 
at  a finite  maximum  number  of  modes.  The  analysis  given  here  indicates 
that  this  may  be  a very  poor  approximation  for  synthesizing  high  frequency 
portions  of  waveforms  observed  near  the  ground  since  there  is  always  some 
frequency  above  which  the  first,  say,  N modes  all  correspond  to  channelling 
in  the  upper  sound  speed  channel. 

The  preferable  alternative  would  appear  to  be  (for  synthesis  of  ground 
level  arrivals  from  sources  below  50  km  altitude)  to  ignore  the  upper 
sound  speed  channel  completely  for  frequencies  above,  say,  at  least  0.2 
rad/sec  (possibly  0.1  rad/sec)  corresponding  to  periods  below  at  most 
30  sec  (possibly  1 min) . The  dispersion  curves  could  then  be  taken  as 
given  by  the  W.K.B.J.  approximation  and  the  mode  amplitude  versus  height 
profiles  could  be  computed  by  the  method  outlined  by  Haskell.  The  dis- 
persion curves  and  amplitudes  so  computed  would  fit  directly  into  the 
general  scheme  outlined  by  Pierce  and  Posey-*-  which  forms  the  theoretical 
basis  for  the  current  version  of  INFRASONIC  WAVEFORMS. 
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Chapter  V 

EXTENSION  OF  INFRASONIC  WAVEFORMS  TO  INCLUDE 
DISTANCES  BEYOND  THE  ANTIPODE 

5.1  INTRODUCTION 

Previous  theoretical  considerations  incorporated  into  the  digital 
computer  program  INFRASONIC  WAVEFORMS  restricted  synthesis  to  waves  that 
had  traveled  less  than  one-half  the  distance  around  the  earth.  The  pur- 
pose of  this  chapter  is  to  further  exemplify  techniques  to  enable  computer 
synthesis  of  acoustic-gravity  pressure  waveforms  at  points  whose  distances 
are  greater  than  halfway  around  the  world  from  a nuclear  explosion. 
Extension  of  prior  theory  shows  that  for  wave  propagation  past  a point  on 
a spherical  earth,  one-half  the  great  circle  distance  away  from  the  point 
of  detonation  (i.e.,  the  antipode),  a phase  shift  of  tr/2  radians  to  the 
Fourier  transforms  of  each  modal  wave  is  incurred.  Modification  to  the 
computer  program  necessitates  the  reinterpretation  of  the  great  circle 
distance  r,  the  inclusion  of  the  tt/2  phase  shift,  and  a modification  to 
the  earth  curvature  correction  factor.  Computations  are  presented  for 
pre  and  post  antipodal  waveforms. 

5.2  THEORETICAL  CONSIDERATIONS  FOR  POST.. ANTIPODAL  WAVEFORMS 

In  considering  acoustic-gravity  waves  that  have  passed  beyond  the 
antipode,  certain  specific  definitions  for  the  various  waveforms  must  be 
adopted.  To  an  observer  located  on  the  surface  of  a spherical  earth  be- 
tween the  source  and  the  antipode  the  pressure  waveform  that  is  first  ob- 
served is  the  direct  arrival  or  A^  arrival.  The  A^  arrival  has  traveled 
the  shortest  great  circle  distance  r to  reach  the  observation  point.  The 
next  waveform  observed  at  the  above  observation  point  is  the  A^  or  antipo- 
dal arrival.  The  A arrival  has  traveled  the  longer  great  circle  distance 
from  the  explosion  point  around  the  globe  passing  through  the  antipode  to 
reach  the  observation  point.  The  A3  arrival  is  the  A-^  pressure  waveform 
that  has  traveled  completely  around  the  globe  with  respect 
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to  the  observation  point.  Further  arrivals  exist  but  are  not  considered 
here.  The  distance  r is  measured  in  kilometers  and  is  the  great  circle 
distance  measured  from  the  detonation  point  to  the  final  observation 
point.  Figure  21  shows  some  typical  pressure  waveforms  recorded  in  subur- 
ban New  York  for  the  Russian  explosion  of  58  megatons  at  Novaya  Zemlya 
on  30  October  1961.^ 

Previous  numerical  syntheses  of  acoustic-gravity  waveforms  have 
only  considered  direct  arrivals.  The  extension  of  this  theory  to  include 
waveform  prediction  for  antipodal  arrivals  is  described  here.  An  inves- 
tigation of  a small  region  of  the  earth’s  surface  in  the  vicinity  of  the 
antipode  where  prior  theory  breaks  down  yields  certain  waveform  charac- 
teristics that  enable  waveform  synthesis  to  be  extended  to  ranges  past 
the  antipode.  By  taking  the  antipodal  region  smaller  in  area  than  say 
l/100th  of  the  earth's  area  as  a whole  we  can  consider  this  region  to 
be  flat.  Then  the  equation  governing  propagation  of  any  frequency  in 
any  guided  mode  near  the  antipode  is  the  cylindrical  wave  equation  in 
the  form  of 

32F./3 rA  + D/rA)3F/3rA  - (l/Vp2)32F/3t2  = 0 (5.1) 

where  F wouid  represent  the  rA  and  t dependent  part  of  the  integration 
kernal  for  synthesization  (i.e.,  integration  over  frequency  of  any 
given  modal  waveform  where  the  height  dependent  part  is  omitted  here)* 

The  quantity  Vp  is  the  corresponding  phase  velocity.  The  assumed  cir- 
cular symmetry  of  the  wave  about  the  antipode  is  inherent  in  the  absence 
of  the  angular  derivative  terms  in  the  above  equation.  The  distance  rA 
is  measured  positive  out  from  the  antipode.  The  wave  solution  to  Eq. 
(5.1)  for  the  total  acoustic  pressure  p and  small  rA  can  be  written  for 
time  t as 

F =,DJ0(krA)cos(wt+e)  (5.2) 

For  the  above,  k = w/Vp  represents  the  horizontal  wave  number,  <d  the 
angular  frequency,  and  e some  phase  angle.  The  quantity  D is  some  arbi- 
trary constant  while  J0(krA)  is  the  Bessel  function  of  zero  order. 


Acoustic  Pressure  ( ^bars  ) 
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Direct  Arrival  A-j 


Antipodal  Arrival  A2 
r = 33,360  Km 


2nd  Antipodal  Arrival  A3 
r= 46/20  Km 


Figure  21.  Infrasonic  pressure  waveforms  recorded  in  suburban  New  York 

following  the  detonation  of  a 58  megaton  yield  nuclear  device 
in  Novaya  Zemlya  ISSR  on  30  October  1961.  [Extracted  from 
Donn  and  Shaw,  Rev.  ofGeophys.  5_,  53-82  (1967).] 
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When  r is  suffienciently  large  (i.e.,  greater  than  three  wavelengths) 
A 

a solution  for  the  total  acoustic  pressure  p can  be  considered  as  a sum 
of  ingoing  and  outgoing  waves  with  respect  to  the  antipodal  region.  The 
asymptotic  solution  for  large  krA  can  be  written  for  time  t as 


F = A(r^)“^/^cos(iot+kr^+  <j>^) 
+ B(rA)_ly,2cos(o)t-krA+  d»out) 


(5.3) 


In  Eq.  (5.3)  <j>  is  some  phase  angle  while  to  and  k are  as  previously  defined. 
The  plus  sign  in  the  argument  of  the  cosine  denotes  an  ingoing  wave. 
Equation  (5.3)  is  not  defined  at  rA  = 0 and,as  rA  approaches  zero,  wave 
amplification  is  predicted.  Figure  22  illustrates  waveform  amplification 
approaching  the  antipode  for  three  different  values  of  r for  a ten  mega- 
ton nuclear  explosion.  The  antipode  is  reached  when  r = 20,000  km. 

Realizing  that  Eqs.  (5.2)  and  (5.3)  should  represent  the  same  pre- 
sure  waveform  at  large  r^  we  can  now  show  the  existence  of  a phase  differ- 
ence between  waveforms  approaching  and  leaving  the  antipode.  For  large 
rA,  the  Bessel  function  JQ(krA)  can  be  represented  by  its  asymptotic 
approximation  such  that  Eq.  (5.2)  becomes 

F » D(2/itr. k)^2cos(kr  -Tr/4)cos(tot+e)  (5.4) 

A A 


or  with  the  aid  of  trigonometric  identities  as 
F = D(2/irrAk)^^  [cos(tot+e+krA-Tr/4) 

+ cos  (tot+e-krA  -Ht/4)] 

Equating  (5.3)  to  (5.5)  then  requires  that 

A = B =D/(2iTk)1/2 


(5.5) 


(5.6a) 


i.  = e - ir/4 
in 

(5.6b) 

out  = e + "/4 

(5.6c) 
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.15.1  Hours  After 
Detonation 
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so 


♦out  - ♦in  + (>-7 

The  latter  shows  that  a pressure  waveform  undergoes  a phase  shift  of  90 
degrees.  Based  on  this  knowledge  the  computer  program  has  been  altered 
to  synthesize  pressure  waveforms  for  the  A2  arrival  that  passes  through 
the  antipode. 


5.3  MODIFICATIONS  TO  INFRASONIC  WAVEFORMS  FOR  POST  ANTIPODAL  WAVEFORMS 

Waveform  synthesis  for  ranges  beyond  the  antipode  necessitates  only 
minor  adjustments  to  the  computer  program.  By  considering  the  theoretical 
development  of  Brune,  Nafe,  and  Alsop  (1961)^ for  circular  spreading  of 
waves  over  a spherical  surface  of  radius  rg  (i.e.,  rg  = 6374  km  for  earth) 
the  amplitude  correction  factor  for  the  curvature  of  a spherical  earth, 
appearing  in  subroutine  TMPT,  is  altered  for  post  antipodal  waveforms  by 
replacing  the  term  sin(r/re)  by  its  absolute  magnitude,  where  r is  inter- 
preted as  the  total  distance  the  wave  has  traveled  from  the  point  of 
detonation.  For  post  antipodal  arrivals  considered  here  r would  be  between 
Trre  and  2irre  kilometers.  The  earth  curvature  correction  factor  in  subroutine 
TMPT  appearing  as 

CF  - (1 . / (6374 . * SIN (RAD)))** 0.5  (5.8) 

is  replaced  for  post  antipodal  waveforms  by 

CF  = (l./(6374.*ABS(SIN(RAD))))**0.5  (5.9) 

where  ROBS  = r and 

RAD  = ROBS/6374.  (5.10) 

To  accomodate  the  change  in  phase  as  the  waveforms  pass  through  the  anti- 
pode two  computer  cards  of  the  form 

(5.11) 


/ 


PH2  = PH2  + 1.570796 


-55- 


are  inserted  in  the  deck  listing  of  subroutine  TMPT  after  lines  160  and 


After  incorporating  the  above  modifications  into  subroutine  TMPT 
the  computer  program  was  then  utilized  to  synthesize  various  theoretical 
waveforms.  Using  the  Soviet  shot  of  30  October  1961  as  the  source,  a 
phase  shift  upon  passing  through  the  antipode  is  exhibited  in  Fig.  23 
for  two  observation  ranges  of  a synthesized  pressure  waveform.  Further 
dispersion  beyond  the  antipode  of  the  pressure  waveform  is  shown  in 
Fig.  24  for  a ten  megaton  explosion.  A comparision  of  antipodal  arrivals 
for  a computer  synthesized  pressure  waveform  and  a microbarograph  recorded 
by  Donn  and  Shaw  in  suburban  New  York"*  for  the  58  megaton  Soviet  test  is 
presented  in  Fig.  25.  Considering  the  scattering  in  waveforms  that  can 
occur  at  such  large  arrival  distances,  it  is  not  unreasonable  to  say  that 
the  amplitudes  and  typical  periods  of  the  two  plots  are  of  the  same  order 
of  magnitude. 
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Theoretical  pressure  waveforms  just  before  (great  circle  distance 
r of  19,000  km)  and  just  after  (r  of  21,000  km)  passing  through 
the  antipode  (20,000  km).  The  m/2  phase  shift  after  the  anti- 
podal passage  is  evidenced  by  the  second  figure.  Time  of  ex- 
pected first  peak  arrival  derived  from  linear  extrapolation  of 
computed  time  of  first  peak  arrival  versus  great  circle  distance 
ter  r<20,000  km  to  case  of  r>20,000  km.  Source  is  the  58  megaton 
Soviet  test  in  Novaya  Zeralya. 
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figure  24.  Theoretical  pressure  waveform  for  a pulse  propagating  away 

from  the  antipode,  Decrease  of  amplitude  and  increased  fre- 
quency dispersion  occurs  with  increasing  great  circle  distance 
r.  The  source  is  a 10  megaton  nuclear  explosion  in  a standard 
atmosphere  without  winds. 
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Theory 
r= 33,360  km 


380  fA bars 


Time  After  Detonation 
(15  minutes  between  marks) 


Figure  25.  A comparison  of  theoretical  and  observed  antipodal  (A^)  arrivals 
for  pressure  wave  recorded  in  suburban  New  York  following  the 
detonation  of  a 58  megaton  yield  nuclear  device  in  Novaya  Zemlya 
USSR  on  30  October  1961.  Note  that  the  amplitude  scales  for 
the  two  records  are  not  the  same.  Observed  waveform  taken  from 
Donn  and  Shaw,  Revs,  ofCbophys.  53-82  (1967). 
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Chapter  VI 


CONCLUSIONS  AND  RECOMMENDATIONS 

6 .1  REMARKS  CONCERNING  INFRASONIC  WAVEFORMS 

The  new  version  of  INFRASONIC  WAVEFORMS  contained  in  this  report 
(Appendix  A)  allows  for  the  computation  of  waveforms  which  have  propa- 
gated past  the  antipode  and  for  the  computation  of  waveforms  including 
leaking  modes.  Our  remarks  here  concentrate  on  the  latter  modification. 

If  one  chooses  a model  atmosphere  in  which  the  sound  speed  is  con- 
stant above  some  arbitrary  large  height,  it  is  inevitable  that  the  GRq 
and  GR^  modes  should  have  lower  cutoff  frequencies  and  be  leaking  below 
that  altitude.  Beyond  a certain  point,  one  would  expect  that  the  compu- 
tations should  be  independent  of  this  choice  of  height,  provided  the 
\ 

analysis  were  carried  through  with  some  degree  of  exactitude.  If  there 
were  a genuine  sensitivity,  this  would  indicate  that  these  modes  carry 
an  appreciable  fraction  of  their  energies  at  high  altitudes  and  this 
would  in  turn  suggest  that  the  neglect  of  physical  dissipative  mechanisms 
(such  as  viscosity  and  thermal  conduction,  Joule  heating,  etc.),  which 
increase  dramatically  at  extremely  large  heights  for  the  frequencies  of 
interest  here,  is  not  a valid  approximation. 

The  reason  we  cannot  take  the  bottom  of  our  upper  halfspace  to  be 
arbitrarily  large  is  that  some  modal  height-amplitudes  decrease  exponen- 
tially at  large  altitudes.  This  exponential  decrease  implies  that,  if 
one  attempts  to  calculate  the  transmission  matrix  [R]  connecting  variables 
at  the  bottom  of  the  upper  half space  to  those  at  the  ground,  then  the 
elements  of  [R]  are  going  to  be  extremely  large  and  the  mathematical 
theorem  that  the  determinant  of  [R]  be  1,  while  true  in  principle,  is  not 
going  to  be  satisfied  for  the  actual  numerical  values  computed  because 
of  the  loss  of  significant  figures.  The  net  result  is  such  large 
fluctuations  in  the  eigenmode  dispersion  function  due  to  round-off 
errors  that  it  is  impossible  to  determine  its  roots.  This  problem 
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always  arises  at  sufficiently  high  frequencies  when  the  upper  halfspace 
bottom  is  taken  too  high. 

In  Chapter  III,  a simple  expedient  for  circumventing  this  difficulty 
is  implicitly  described.  One  uses  one  atmosphere  for  low  frequencies, 
another  atmosphere  for  higher  frequencies.  The  atmosphere  for  the  higher 
frequency  calculations  has  its  half space  beginning  at,  say,  125  km  alti- 
tude while  the  atmosphere  for  the  lower  frequency  calculations  has  its 
upper  half space  beginning  at,  say,  225  km.  Given  the  premise  that,  for 
the  GRq  and  GR^  modes  (which  appear  to  be  the  only  modes  for  which  we  have 
problems  at  low  frequencies) , the  energy  is  ducted  below  125  km,  the 
temperature  above  225  km  can  be  made  as  large  as  one  desires  without  chang- 
ing the  answers.  Thus  one  simply  chooses  this  temperature  to  be  so  large 
that  the  lower  cutoff  frequencies  for  the  two  modes  are,  for  all  practical 
purposes,  zero.  In  this  manner  one  can  construct  the  phase  velocities 
and  source  free  amplitude  functions  versus  frequency  for  these  modes 
down  to  arbitrarily  small  frequencies. 

Another  question  is  whether  or  not  the  k^  (imaginary  part  of  wave- 
number)  for  the  leaking  modes  are  physically  meaningful.  They  obviously 
would  be  meaningful  were  the  actual  atmosphere  terminated  by  an  upper 
half space  and  were  there  no  physical  dissipation  mechanisms.  However, 
the  actual  atmosphere  is  more  complicated  than  this  model  and  one  has 
to  accept  the  fact  that  (1)  an  approximate  atmosphere  is  going  to  give 
rise  to  approximate  answers  and  (2)  that  the  values  of  the  k^  are  going 
to  depend  on  the  choice  of  the  bottom  height  of  the  upper  halfspace. 

Thus  the  k^  are  really  somewhat  arbitrary.  Fortunately,  the  values  of 
the  kj  so  derived  are  very  small,  at  least  for  the  example  we  have  numeri- 
cally carried  out,  that  the  computed  waveforms  are  almost  the  same  as 
if  the  kj  were  identically  zero. 

With  the  above  remarks  in  mind,  it  is  recommended  that  the  calcula- 
tions of  the  kj  for  the  GR^  and  GR^  modes  below  cutoff  not  be  carried  out 
in  the  synthesizing  of  waveforms.  Rather,  one  should  either  set  the  k^ 
for  frequencies  below  cutoff  as  given  in  our  numerical  example  or  to 
2x10  ^ (i.e.,  for  all  intents  and  purposes,  zero).  The  reason  the  kT 
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should  not  be  set  Identically  to  zero  is  that  the  computer  program  uses 
the  nonzeroness  of  k^  as  a flag  to  decide  whether  to  look  for  an  input 
value  of  AMP  (source  free  amplitude)  or  to  compute  the  number  internally 
(it  can't  do  this  at  frequencies  below  cutoff  and  will  consequently 
return  AMP  = 0).  While  this  may  seem  a rather  simple  thing  to  do,  con- 
sidering the  elaborate  mathematical  theory  developed^  in  Scientific 
Report  No.  1,  the  analysis  and  computations  which  preceded  the  formula- 
tions of  this  recommendation  were  necessary,  if  only  to  establish  that 
the  procedure  has  some  rigorous  mathematical  basis. 


I 

! 
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In  any  event,  it  is  evident  that  one  must  and  should  include  con- 
tributions from  the  frequencies  below  the  nominal  low  frequency  cutoff 
(determined  by  the  upper  halfspace)  if  one  is  to  adequately  synthesize 
the  initial  portions  of  waveforms.  The  present  report  shows  how  this 
may  be  done.  The  procedure,  although  requiring  several  (three,  in 
general)  runs  of  the  program  rather  than  just  one  run  to  accomplish 
this,  is  relatively  straightforward.  It  is  obviously  feasible  to  auto- 
mate this  so  that  only  one  run  is  necessary,  but  the  time  limitations 
of  the  present  study  precluded  our  doing  so. 


6.2  DISCREPANCY  WITH  L&MB  EDGE  MODE  THEORY 

It  was  hoped  that  the  inclusion  of  leaking  modes  into  the  multi- 
mode  synthesis  would  eliminate  the  discrepancy  between  the  numerical 
predictions  of  the  Lamb  edge  mode  theory  and  the  multi-mode  theory. 

It  is  evident,  however,  from  Fig.  16  in  the  present  report  that  this 
has  not  turned  out  to  be  the  case.  The  cause  of  the  discrepancy  has 
not  been  resolved  and  time  limitations  precluded  its  resolution. 

There  is  always  the  possibility  that  either  program  may  have  a mistake. 
However,  barring  this,  it  should  be  pointed  out  that  the  modified 
multimode  theory  should  be  the  more  nearly  correct.  The  Lamb  edge  mode 
theory  ^ contains  a number  of  approximations  which  the  multi-mode 
theory  does  not  contain.  Consequently,  it  is  recommended  that  the 
multi-mode  model  as  modified  here  be  used  in  preference  to  the  Lamb 
edge  mode  model. 


t 
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The  relative  simplicity  of  the  edge  mode  model  still  retains  an 
intrinsic  appeal  and,  consequently,  it  is  recommended  that  some  future 
effort  be  expended  in  revising  the  model  (possibly  by  including  higher 
order  terms  in  the  dispersion  relation)  such  that  the  discrepancy  is 
resolved. 

6.3  GUIDED  MODES  AT  HIGHER  FREQUENCIES 

The  procedure  outlined  in  Chapter  IV  for  using  a modified  W.K.B.J. 
approximation  to  order  the  modes  and  to  compute  modal  parameter  at  high 
frequencies  looks  eminently  feasible  and  is  recommended  for  inclusion 
into  the  multi-mode  synthesis  program  INFRASONIC  WAVEFORMS.  Although, 
again,  time  limitations  precluded  this,  we  regret  not  having  done  so  in 
the  present  study.  The  motivation  for  doing  this,  however,  is  not  as 
strong  as  for  the  low  frequency  modifications  because  the  commonly  avail- 
able data  in  the  open  literature  is  markedly  poor  as  regards  high  frequency 
arrivals.  If  and  when  such  a modification  is  carried  out,  one  should 
ideally  have  appropriate  data  with  which  to  compare  the  numerical  predic- 
tions. 

Another  problem  is  that  there  is  some  question  as  to  whether  a mult- 
modal  theory  with  a finite  number  of  modes  (even  when  judiciously  selected) 
can  ever  adequately  synthesize  higher  frequency  arrivals.  In  many  respects, 
we  believe  that  an  appropriate  modification  of  a geometrical  acoustics 
theory  would  be  preferable. 

6.4  GEOMETRICAL  ACOUSTICS  MODEL 

The  geometrical  acoustics  model  described-^  in  Scientific  Report  Mo.  2, 
although  still  incompletely  developed,  appears  to  hold  considerable  promise 
for  the  understanding  of  higher  frequency  arrivals.  We  know  now  how  to 
take  the  edge  mode  into  account  and  how  to  handle  the  problem  of  caustics. 
Problems  of  aretes,  lacunae,  and  wave  diffusion  from  channel  to  channel 
still  remain,  but  we  believe  these  can  be  overcome  with  only  a modest 
amount  of  additional  theoretical  effort. 
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The  ultimate  objective  of  the  analysis  should  be  to  develop  the 
simplest  possible  theory  sufficient  to  explain  and  interpret  available 
data.  In  this  respect,  we  would  suggest  that  both  the  multi-mode  and 
geometrical  acoustical  models,  \*hile  perhaps  more  elaborate  than  should 
be  ideally  required,  could  be  used  as  research  tools  to  conduct  numeri- 
cal experiments  which  test  simpler  models.  The  statistical  models  develop 
ed  by  £.  Smith^  for  underwater  acoustics  appear  especially  attractive 
in  this  regard  and  we  believe  that  one  should  be  able  to  test  his  models 
using  the  geometrical  acoustics  model  described  in  Scientific  Report  No. 

2.  Also,  the  types  of  numerical  experiments  envisioned  should  provide 
the  inspiration  and  support  required  to  refine  Smith's  models  such  that 
they  be  capable  of  a more  nearly  precise  description  of  infrasonic  wave- 
forms. 


I 

! 


! 


-64- 


REFERENCES 


1.  A.  D.  Pierce  and  J.  W.  Posey,  "Theoretical  Prediction  of  Acoustic-Gravity 
Waveforms  generated  by  Large  Explosions  in  the  Atmosphere",  Report 

No.  AFCRL-70-0134,  Air  Force  Cambridge  Research  Laboratories,  Hanscom 
AFB,  Mass.  01731  (30  April  1970). 

2.  A.  D.  Pierce,  W.  A.  Kinney,  and  C.  Y.  Kapper,  "Atmosphere  Acoustic  Gravity 
Modes  at  Frequencies  near  and  below  Low  Frequency  Cutoff  Imposed  by 
Upper  Boundary  Conditions",  Report  No.  AFCRL-TR- 75-0639,  Air  Force 
Cambridge  Research  Laboratories,  Hanscom  AFB,  Mass.  01731  (1  March  1976). 

3.  A.  D.  Pierce  and  W.  A.  Kinney,  "Geometrical  Acoustics  Techniques  in  Far 
Field  Infrasonic  Waveform  Syntheses",  Report  No.  AFGL-TR-76-0055  , 

Air  Force  Cambridge  Research  Laboratories,  Hanscom  AFB,  Mass.  01731 

(7  March  1976). 

t 

4.  A..  D.  Pierce,  C.  A.  Moo,  and  J.  W.  Posey,  "Generation  and  Propagation 

' of  Infrasonic  Waves",  Report  No.  AFCRL-TR- 7 3-0135,  Air  Force  Cambridge 
Research  Laboratories,  Hanscom  AFB,  Mass.  01731  (30  April  1973). 

5.  J.  E.  Thomas,  A.  D.  Pierce,  E.  A.  Flinn,  and  L.  B.  Craine,  "Bibliography 
on  Infrasonic  Waves",  Geophys.  J.  Roy.  Astron.  Soc.  26_,  399-426  (1971). 

6.  J.  W.  S.  Rayleigh,  "On  the  Vibrations  of  an  Atmosphere",  Phil.  Mag.  2£, 
173-180  (1890). 

7.  H.  Lamb,  "On  the  Theory  of  Waves  Propagated  Vertically  in  the  Atmosphere", 
Proc.  London  Math.  Soc.  ^L,  122-141  (1908);  "On  Atmospheric  Oscillations", 
Proc.  Roy.  Soc.  London  A04,  551-572  (1920). 

8.  G.  I.  Taylor  "Waves  and  Tides  in  the  Atmosphere",  Proc.  Roy.  Soc.  London 
A126,  169-183  (1929);  "The  Oscillations  of  the  Atmosphere",  Proc..  Roy. 

Soc.  London  A156,  318-326  (1936). 

9.  C.  L.  Pekeris,  "The  Propagation  of  a Pulse  in  the  Atmosphere",  Proc. 

Roy.  Soc.  London  A171,  434-449  (1939);  "The  Propagation  of  a Pulse  in 
the  Atmosphere,  Part  II",  Phys.  Rev.  7_3,  145-154  (1948). 

10.  R,  S.  Scoren,  "The  Dispersion  of  a Pressure  Pulse  in  the  Atmosphere", 

Proc.  Roy.  See.  London  A201,  137-157  (1950) . 

11.  G.  J.  Symond,  The  Eruption  of  Krakatoa  and  Subsequent  Phenomena  (Trubner 
and  Co.,  London,  1888). 

12.  F.  J.  W.  Whipple,  "On  Phenomena  Related  to  the  Great  Siberian  Meteor", 
Quart.  J.  Roy.  Meteor.  Soc.  6(3,  505-513  (1934). 

13.  A.  D.  Pierce  and  C.  A.  Moo,  "Theoretical  Study  of  the  Propagation  of 
Infrasonic  Waves  in  the  Atmosphere",  Report  No.  AFCRL-67-0172,  Air  Force 
Cambridge  Research  Laboratories,  Hanscom  AFB,  Mass.  01731  (1567). 


-65- 


14.  D.  6.  Harkrider,  "Theoretical  and  Observed  Acoustic-Gravity  Waves  from 
Explosive  Sources  in  the  Atmosphere",  J.  Geophys.  Res.  69.,  5295-5321 
(1964) . 

15.  A.  D.  Pierce  and  J.  W.  Posey,  "Theory  of  the  Excitation  and  Propagation 
of  Lamb's  Atmospheric  Edge  Mode  from  Nuclear  Explosions",  Geophys. 

J.  Roy.  Astron.  Soc.  2j3,  341-368  (1971). 

16.  J.  W.  Posey,  "Application  of  Lamb  Edge  Mode  Theory  in  the  Analysis  of 
Explosively  Generated  Infrasound",  Ph.D.  Thesis,  Dept,  of  Mech.  Engrg., 

Mass.  Inst,  of  Tech.  (August,  1971). 

17.  N.  A.  Haskell,  "Asymptotic  Approximation  for  the  Normal  Modes  in  Sound 
Channel  Wave  Propagation",  J.  Appl.  Phys.  22,  157-168  (1951). 

18.  F.  Carlini,  Ricerche  sulla  convergenza  della  serie  che  serva  alia 
soluzione  del  problems  di  Keplero,  Milan  (1917). 

19.  G.  Green,  "On  the  Motion  of  Waves  in  a Variable  Canal  of  Small  Depth  and 
Width",  Trans.  Camb.  Phil.  Soc.  6.,  45.7-462  (1837). 

20.  C.  Eckart,  "Internal  Waves  in  the  Ocean",  Phys.  of  Fluids  4^  791-799 
(1961) . 

21.  P.  M.  Morse  and  H.  Feshbach,  "Perturbation  Methods  for  Scattering  and 
Diffraction",  Sec.  9.3  in  Methods  of  Theoretical  Physics,  Vol.  II 
(McGraw-Hill  Book  Co.,  New  York,  1953)  pp.  1092-1106. 

22.  A.  D.  Pierce,  "Guided  Infrasonic  Modes  in  a Temperature  and  Wind-Stratified 
Atmosphere",  J.  Acoust.  Soc.  Amer.  41,  597-611  (1967). 

23.  W.  L.  Donn  and  D.  M.  Shaw,  "Exploring  the  Atmosphere  with  Nuclear  Explosions", 
Rev.  of  Geophys.  5.,  53-82  (1967). 

24.  J.  N.  Brune,  J.  E.  Nafe,  and  L.  E.  Alsop,  "The  Polar  Phase  Shift  of 
Surface  Waves  on  a Sphere",  Bull.  Seism.  Soc.  Amer.  51,  247-257  (1961). 

25.  P.  W.  Smith,  "The  Average  Impulse  Responses  of  a Shallow-Water  Channel", 

J.  Acoust.  Soc.  Amer.  50,  332-336  (1971);  "Averaged  Sound  Transmission 
in  Range-Dependent  Channels",  J.  Acoust.  Soc.  Amer.  55,  1197-1204  (1974). 


-66- 


APPENDIX  A 


SOURCE  DECK  LISTING  OF  THE  PRESENT 
VERSION  OF  INFRASONIC  WAVEFORMS 

This  supercedes  the  source  deck  listing  originally  given  by 
Pierce  and  Posey  in  AFCRL-70-0134.  Changes  incorporated  include  those 
described  by  Pierce,  Moo,  and  Posey  in  AFCRL-TR-7 3-0135  and  those 
described  in  the  present  report. 
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PROGRAM  INFRA { INPUT* OUT PUT  , T APES = INPUT  * TAPE 6 “OUTPUT* 
1PUNCH, TAPE?=PUNCH»  TAPE2) 

HAIN  PROGRAM  7/23/6? 


°ROGRAM  TO  SYNTHESIZE  PRESSURE  WAVEFORMS  OF  ACOUSTtC 
GRAVITY  WAVES  GENERA TEO  BY  NUCLEAR  EXPLOSIONS  IN  THE 
ATMOSPHERE 


C — — A8STRACT 

C 

C TITLE  - MAIN  PROGRAM 
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C EXPLOSION  GENERATED  ACOUSTIC  GRAVITY  WAVES  IN  THE  ATMOSPHERE. 

C 
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C SCALING  OcRIVSC  FROM  THE  EFFECTS  Oe  NUCLEAR  WEAPONS 

C (U.S.  GOVERNMENT  PRINTING  OFFICE*  1B62). 

C 
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•OIRECTICN  IN  CEGPSES  TO  OBSERVER,  RECKONEO  COUNTER 

main 

196 

c 

CLOCKWISE  f ROM  X AXIS. 

MAIN 

197 

c 

VI 

•LOWER  eCUNC  IN  KM/SEC  OF  PHASE  VELOCITY  INTERVAL  CON 

MAIN 

198 

c 

. • 

SIOEREO  FCS  NCPMAL  MOOE  TA3ULAT ION 

main 

199 

c 

‘”V2 

•UFFER  BOUNO  IN  KM/SEC  Or  PHASE  VELOCITY  INTERVAL  CON 

main 

200 

c 

SIOEREO  FOR  NOPMAL  MODE  TABULATION 

main 

201 

c 

ONI 

•MINIMUM  ANGULAR  FPEC'JENCY  IN  P.AC/SEC  CONSICEREO  FOR 

main 

202 

c 

NORMAL  NCOS  T ADULATION. 

MAIN 

203 

c 

OH2 

•MAXIMUM  ANGULAR  FREQUENCY  IN  RAO/SEC  CONSICEREO  FOR 

MAIN 

204 

onooonnonooonnooonnnnnnnnnnnnnnnnnnnnnnnonnnnnoonnoonoononnftonoo 


MAXHOO 


NORMAL  MODE  T A6ULATI0N. 

•INITIAL  NUMBER  OF  DISCRETE  FREQUENCIES  BETWEEN  CN1 
AND  OH2,  INCLtlSIVF,  AT  WHICH  NORMAL  MOCE  DISPERSION 
FUNCTION  IS  STUDIED. 

•INITIAL  NUMBER  OF  DISCRETE  OHASF  VELOCITIES  BETWEEN 
VI  AND  V2.  INCLUSIVE.  AT  WHICH  NORMAL  MOOE  CISPEPSIO 
FUNCTION  IS  STUDIED. 

•MAXIMUM  NUMBER  OF  MODES  TO  BE  TABULATED. 


NANS  — KlAMELIST  CROUP  5 


IMAX 

Cl (II  • 

VXICI) 

VYIU) 

Hid) 

THETKO 

MQFND 
•KST(N)  . 
KFININ) 

OMMOOtNI 


VPMOO(N) 


•NUMBER  OF  LAYERS  OF  FINITE  THICKNESS 
•SOtlNO  SPEED  IN  KM/SEC  IN  I-TH  LAYER 
•X  COMPONENT  OF  WIND  VELOCITY  IN  I-TH  LAYER  <KM/SEC> 
*Y  COMPONENT  OF  WINC  VELOCITY  IN  I-TH  LAYER  (KM/SEC) 
•THICKNESS  IN  KM  OF  I-TH  LAYER  OF  FINITE  THICKNESS 
•OIPECTION  IN  CEGREES  TO  OBSERVER.  RECKONED  COUNTER 
CLOCKWISE  FROM  X AXIS 
SNUM"ER  CF  NORMAL  NCCES  FOUND 
•INOEX  OF  FIRST  TABULATEO  °3INT  IN  N-TH  MOOE 
•INDEX  OF  LAST  TABULATEO  POINT  IN  N-TH  MOOE.  IN 
GENERAL.  KF  IN(N)  = KST  (NUI  -1 . 

•ARRAY  STORING  ANGULAR  FREQUENCY  ORDINATE  (RAC/SEC)  0 
POINTS  ON  DISPERSION  CURVES.  THE  NMOOE  MODE  IS  STQR 
FOP  N BETWEEN  KSTfNWODE)  AND  KFIN(HMOOE>. 

•APPAY  STORING  PHASE  VELOCITY  ORDINATE  (KM/SEC)  OF 
POINTS  ON  CISFfRSICN  CURVES.  THE  NMODE  MOOEJ  IS  STOP 
FOR  N BETWEEN  KST t NMOOE I AND  KFINCNHOOE) . 


NAM6  — NAMELIST  GROUP  6 

ZSCRCE  •HEIGHT  IN  KM  OF  DURST  ABOVE  GROUND 

* Z03S  •HEIGHT  IN  KM  OF  OBSERVER  ABOVE  GROUND 


NAM7  — NAMELIST  GROUP  7 


OHMOO(N) 


VPMOOINI 


MOFNO 
KST (Nl 
KFlN (Nl 

AHP(JI 


•ARPAY  STORING  ANGULAR  FREQUENCY  ORDINATE  CRAO/SEC)  0 
POINTS  ON  CISPFCSION  CURVES.  THE  NMOOE  MODE  IS  STOR 
FOR  N BETWEEN  KST  (NMOOE)  iNO  KF IN (N-OOE) . 

•ARPAY  STORING  CHASE  VELOCITY  ORDINATE  (KM/SEC)  OF 
POINTS  ON  OISFPPSION  CURVES.  THE  NMODE  MOOE  IS  STOR 
FOP  N BETWEEN  KSdNMOOE)  AND  KF IN(NMOOE) 

•NUM3ER  OF  NQPMAL  MCCES  FOUND 
•INDEX  OF  FIRST  TABULATED  POINT  IN  N-TH  MOOE 
•INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  MOOE.  IN 
GENERAL,  KF  lUOi)  = KST  (N+t  > -l . 

•AMPLITUDE  FiCTCP  FOP  GUIDED  WAVE  EXCITED  BY  POINT 
ENERGY  SOURCE.  UNITS  ARE  KN*»(-i).  THE  J-TH  ELEMEN 
CORRESPONDS  TO  ANGULAR  FREDUSNCY  OHMOO(J)  AND  “HASE 
VELOCITY  VPMOCUI.  THE  ATTITUDE  FACTOR  IS  APRROPRI 
TO  THE  NMCCE-TH  MOOS  IF  J .GE.  KST(NMOOE)  ANO  J .LE. 
KFIN(NMOCE).  A OETAILEQ  DEFINITION  OF  AHR(J)  IS  GIV 
IN  THE  LISTING  OF  SU°°OUT INE  NAM^OE. 

•A  SCALING  FACTOR  OEeENOEHT  ON  HEIGHT  OF  3UPST.  EDUAL 
TO  CUBE  RCOT  CF  ( PRESSURE  AT  GROUNO) / (FRESSL'PE  AT 
BURST  HEIGHT)  TIHFS  (SOUND  SPEEO  AT  GROUND) / (SOUND 
SPEED  AT  BURST  HEIGHT).  SEE  SUBROUTINE  RAKODE. 

•A  GENERAL  AMPLITUDE  FACTOR  CEPFNOENT  ON  BURST  HEIGHT 
ANO  OdSERVEP  HEIGHT.  A PRECISE  DEFINITION  IS  GIVEN 
IN  THE  LISTING  OF  SUBROUTINE  PAH°OE. 


NAM#  — NAMELIST  GROUP  8 


•ENERGY  YIELO  OF  EXPLOSION  IN  EQUIVALENT  KILOTONS  (KT 
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0 F TNT.  1 KT  * 4.2X(10)**19  ERGS. 


NAH9  — NAMELIST  GROUP  9 


NOFNO 
KST ( Nl 
KFIN<N> 

OMMOO(N) 


VPMOO(N) 


AMFLTO(M) 


PHASO(N) 


■NUMBER  OF  NORMAL  MOOES  FOUNO 
■IUOEX  OF  FIRST  TABULATED  “OINT  IN  N-TH  NODE 
■INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  IN 
GENERAL.  KF  IN<N1  = KST (N »1> -1 
■ARRAY  STORING  ANGULAR  FREQUENCY  O.ROINATE  (RAO/SEC)  0 
POINTS  ON  0 ISPE °S ION  CURVES.  THE  NKOOc  HOOE  IS  STCR 
FOR  N BETWEEN  KST { NKOQE ) AND  KFIN(NMODE). 

■ARRAY  STORING  PHASE  VELOCITY  OfiOINAT£  (KM/SEC)  OF 
POINTS  ON  C ISPE °SION  CURVES.  THE  NMODE  NODE  IS  STOR 
FOR  N BETWEEN  KSTtNMODE)  ANO  KFIN  (NFOOE) • 

■AMPLITUDE  FACTOR  REPRESENTING  TOTAL  MAGNITUDE  OF 
FCl'RIER  TRANSFORM  OF  WAVEFORM  CONTRIBUTION  OF  SINGLE 
GUICEO  MOCS  AT  FOEQLENCY  QHMOD(N).  IT  REPPCSENTS  TH 
AMPLITUDE  OF  NMOOE-TM  MODE  IF  N IS  PETW£EN  KST (NMOCE 
ANO  KFIMNMGDE)  . INCLUSIVE.  FOR  PRECISE  DEFINITION, 
SEE  SUBPCUTINE  “P AMR. 

«°HAJE  LAG  AT  FPEDUENCY  OMMODTN)  FOP  tIMOOE  MODE  WHEN 
N BETWEEN  KST(NHOOE)  ADD  KFIN(NMOOE),  RESPECTIVELY. 
THE  INTEGRAND  IS  UNCEFSTOOO  TO  HAVE  THE  FORM 
4MPLTC*C0S ICNMOO*  (TIHE-QISTANCE/V“MOO) *PHASC) . FOR 
PRECISE  DEFINITION  CF  PHASQ,  SEE  SUBROUTINES  TNPT 
ANO  PPAMP. 


NAM10  — NAMELIST  GPOUP  10 


TFIRST 

TEND 

OELTT 

ROBS 

IOPT 


■FIRST  TIME  RELATIVE  TO  TIME  OF  OETONATION  FOP  WHICH 
WAVEFORM  IS  CCMPUTEO.  UNITS  ARE  IN  SECONDS. 

■APPROXIMATE  TIME  VALUE  CORRESPONDING  TO  LAST  POINT 
TAOULATEO  FCR  WAVEFORM  (RELATIVE  TO  TIME  OF  OETONATI 
FOP  PRFCISc  DEFINITION.  SEE  SUBROUTINE  TM»T. 

■ INCREMENT  CF  TIME  VALUES  IN  SECONDS  FOR  WHICH  SL'CCES 
SIVE  WAVEFORM  POINTS  ARE  TAOULATEO. 

■MAGNITUCE  CF  HORIZONTAL  DISTANCE  IN  KM  BETWEEN  SOURC 
AND  OeSERVEP. 

■INTEGER  CONTROLLING  WHICH  MOOES  ARE  INCLUDED  IN  THE 
CCMPUTEO  WAVEFORM.  FOR  PRECISE  DEFINITION,  SEE 
SUBROUTINE  TM°T • 


-PROGRAM  FOLLOWS  BELOWS 


DIMENSION  STATEHCNTS 

DIMENSION  CI(100),VXI(1C0>  .VYK1C0)  .MIU00J  ,AMP<1000>  , AMPLTO  (1000 
0 IM.ENS  ION  TtlOO)  .VKNTXdO'JI  , V<NT  Y ( i 0 J » , ZI  (1 00  > ,PMAS0  ( 10 00 ) ■ 
DIMENSION  WANGLE (139) .NINOY (190) 

DIMENSION  OM(100),VP(10C),INMOOE(10030> 

DIMENSION  KST (10) ,KFIN(1D) , OMHCO (1 0 JO ) . 

. 1VPHOOU0C0)  ,AKI  (1000)  »I’!UF(1lG0) 

DIMENSION  OMGRl(EO) . VFGR 1 ( 00 ) , AK IGR 1 (5 S ) ,OMGP0(50> , 
1VPGRC(50>,AKIGR0(50) .AKPGR0(50) ,ahoGP1(50>  . . 

ALOCATION  OF  VARIABLES  TO  COMMON  STORAGE  . 

COMMON  IMAX,CI,VXI,VYI,HI 

NAMELIST  STATEMENTS 

NAMELIST  7NAM1 / NST AFT , NPRNT, NPNCH , NCMOL 

NAMELIST  /NAME/  L ANGLE . I MAX , f , VKNTX , VKNTY , WIHOY , WANGLE, Z I 
NAMELIST  /NAW37  IMAX ,CI , VX I , VY I ,HI 

NAMELIST  /KAMI,/  THETKO, VI, V2,OMi ,OM2,NOMI, NVPI, HA XHCO 
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MAIN 

279 

MAIN 

260 

MAIN 

281 

MAIN 

262 

HAIN 

283 

MAIN 

264 

MAIN 

285 

MAIN 

286 

MAIN 

2 57 

MAIN 

288 

MAIN 

2 89 

MAIN 

290 

MAIN 

291 

MAIN 

292 

MAIN 

293 

HAIN 

294 

MAIN 

295 

MAIN 

296 

MAIN 

297 

MAIN 

298 

MAIN 

299 

MAIN- 

300 

MAIN 

101 

MAIN 

302 

MAIN 

203 

MAIN 

304 

HA  IN 

305 
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NAKELIST  /NAM5/  IMAX.CI.VXI.VYI.HI.THETKO.HOFND.KST.ICFIN.OMKO'J* 
t V«NOO 

sjsitii;  jss; 

NAPELIST  /NAN1)/  KOFNC.<ST.l<FlN.Ot‘M03»VBMOO«  At^LTO.PHASQ 

NAMELIST  /NAHlO/  TFIRST « TENO.DELTT • ROSS. IQ°T 
NAKELIST  /NAH51/  MNGfil.NFGPl  . MKGRO.  N°GRO.QMGfit« VFGRt.ONGRO  * 
1VPGR0. AKIGR1. AKIGRQ  * AHeGR0  .AHPGR1 

BEFORE  ANY  OATA  IS  READ  IN.  ALL  NAMELIST  VALUES  ARE  PRESET  TO  ZERO. 
THIS  IS  OONE  SIMPLY  TO  MAKE  NAMELIST  PRINTOUT  cASIER  TO  RE*0« 
NSTART*0 
NPRNT»0 
NPNCM*fl 
NCNPL»0 
tANCLS*0 
IMAX»0 
THETKO*0»0 
V1*0.0  • 

V2*0.0 
OMl*0.0 
OM2*0.0 
NOMI*0  . 

N¥PI«3 
KAXMOO*0 
MOFNO*0 
2$CRCE*0.0 
Z09S*0.0 
ALAM»0.0 
FACT»0.0 
TIELO«0.0 
TFIRST*0.0 
' TEND*D .0 
OELTT=O.G 
RORS*0.Q 
IOPT«0 

00  21  IPR«1*100 
CI<IPR»*0.0 
YXICI"R»*0.3 
¥YKI®PlsO.O 
HI(IPR»«0'.0 
T CI*RI *0.0 
VKNTX(I°RJ  *0  »0 
VKNTY(IPR»*0.0 
2ItIPR»«0.0 
MANGLE T I FR» *0.0 
MINOY (I°R>  *3.0 
’GH(I°R>  *0.0 
21  VP(IPR>=0.0 
00  31  I»R*l.lO 
KST(I«R>*0 
SI  KFINtIFR)*0 

00  N1  IBR=1 .1000 
AMP< t°Rl *0 . 0 
AHFLTQT IPRJ  *0.0 

PMASO<IFR>*0.0 

OMMOOtI°R>=0.0 
AKHIPR)=0.0 
*1  VPMOO(IPRi*0.0 
C 

c 

C START  OF  EXECUTABLE  PORTION  OF  PROGRAM 
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C NEWPLT  IS  A CALCOMF  SUBROUTINE  WHICH  INITIATES  THE  CALCOMP  PLOTTER 
C TAPE  FILE.  5640  IS  THE  M.I.T.  COMMUTATION  CENTER  PR03LEH  NO.  5923  I 
C THE  PROGRAMMER  NO.  GRAPH  FA  PER  WITH  BLACK  INK  IS  REQUESTED. 

CALL  9L0TS( IRUF. 1400.2.001 

C 

1 REAO  (5. KAMI)  . ..  

XT  IS  CONSIDERED  GOOC  PRACTICE  TO  HAVE  INPUT-  DATA  PRINTEO  ON  OUTPUT 
WRITE  (6.37) 

37  FORMAT (1H  /////  27H1NAM1  HAS  JUST  BEEN  REAO  IN) 

WRITE  (6.NAH1) 

CURRENT  VALUE  OF  NSTART  CONTROLS  THE  STAGE  AT  WHICH  COMPUTATION  BEGIN 
SINCE  COMPUTED  GO  TO  STATEMENTS  SOMETIMES  OO  HOT  COMPILE  CORRECTLY  IF 
INDEX  IS  NOT  EXPLICITLY  0EFINE0.  WE  PLAY  IT  SAFE  WITH  REOUNCANT 

STATEMENT.  

NSTART*NSTART 

CO  TO  (200. 303.400.500. 600. 999) .NSTART ' 

WE  ARRIVE  HEPE  IF  NSTART *1  

200  PEAO  (5.NAH2)  

WRITE  (6.237)  _ 

237  FORMAT (iH  /////  27H  NAK2  HAS  JUST  BEEN  REAO  IN) 

WRITS  (6.NAM2) 

CONVERT  ATMOSPHERIC  CATA  TO  STANDARD  FORM  . . . 

CALL  ATM.OS(T,VKNTX,VKNTY,ZI. WANGLE. WINDY. LANGLE) 

. IF ( NPRNT  .LE.  C)  GO  TO  270  

.PRINT  ATMOSPHERIC  PROFILE  IF  NFRNT  .GT.  0 . ..  . ' 

CALL  PRATMO 

270  IF ( NPNCH  .LE.  0)  GO  TO  305  . 

PUNCH  NAM]  OATS  IF  NONCH  .GT.  0 ~ 

WRITE  (7,271)  ....  

271  FORMAT  ( 7M  LNAH3  ) 

IUHS  * IMAX  ♦ 1 . ' 

WRITE  (7,272)  IMAX, (Cl < I) . 1*1. IUHS) 

272  FORMAT  t 10H  IMAX  * ,r3,iM,  / SH  Cl  * / 

1 ( 6X»G15.8,1M,,G15.8,1H,,G15.8,1H,,G15.«,1H,  ) ) 

WRITE(7,274)  (VXKI)  ,1*1. IUHS)..  . 

274  FORMAT (PH  VXI  * / 

1 ( 6X.G15.5.1H,,G15.«.iH,,G15.8,lH,,G15.a,lH,  ) ) 

NK.ITE  <7, 275)  < VYI , I > , 1*1 .IUHS) 

. 276  FORMAT (9H  VYI  = / 

l ( 6X,G15.e.lH,,G15.e.lM.,G15.8,lH,,G15,8»lH,  ) ) 

WRITEf 7,273)  ( HI ( I ) , 1*1, IUHS)  

273  FORMAT  ( 8H  HI  * / 

_1  ( 6X.G15.a.lH,,G15.8,lH,,G15.8,lH,,G15.e,lH,  _>  ..) 

WRITE  (7,279) 

279  FORMAT  ( 6H  IENO  ) _ 

WRITE  (6,583) 

. WRITE  (6,271)  

WRITE  (6,272)  IMAX, (Cl (I ), 1*1, IUHS) 

„ . WRITE(6,274)  (VXKI)  ,1*1, IUHS)  ...  

WRITE (6,276)  ( VYI ( I) , 1=1 , IUHS) 

WRITc(5,£78)  ( HI(I) ,1=1, IUHS)  . . ...  

WRITE  (6,279) 

230  GO  TO  30  5 


74 


Yf 

i" 

V1 

h 


I' 


f 

»] 


C ME  ARRIVE  HERE  IF  FSTART=2 

RAIN 

461 

300  RE AO  (5.NAM3) 

HA  IN 

462 

WRITE  (6.302) 

MAIN 

463 

302  FORMAT (IN  /////  27H  NAM3  MAS  JUST  BEEN  READ 

IN) 

MAIN 

464 

WRITE  (6.NAM3) 

HA  IN 

465 

IF!  NPRNT  .LE.  0)  GO  TO  305 

HA  IN  . 

466 

C PRINT  ATMOSPHERIC  PROFILE  IF  MPRNT  .GT.  0 

HA  IN 

467 

CALL  PPATHO 

HA  IN 

466 

C 

HA  IN 

469 

C CONTINUING  FROM  270.  250.  302.  OR  303 

HA1N 

470 

305  READ  (5.NAH4) 

HA  IN 

471 

WRITE  (6.307) 

HA  IN 

472 

307  FORMAT (1H  /////  27H  MAMA  HAS  JUST  BEEN  RE AO 

IN) 

HA  IN 

473 

WRITE  (6.NAM4) 

HAIN 

474 

C 

MAIN 

475 

C CONVERT  THETKO  F»OM  CEGREES  TO  PAOIANS 

MAIN 

476 

THETK  » (3.14159)  * THETKO  / 110.0 

HAIN 

477 

NON  * NOPI 

HAIN 

47* 

NVP  « NVPI 

HAIN 

479 

C 

MAIN 

4*0 

C CONSTRUCT  TAFLE  OF  INMOOE  VALUES 

MAIN 

481 

CALL  TA3LE(OHl,Of'2,Vl.V2.NCM,NVP,THETK,ON.VP 

.INMOOE.NPRNT) 

HAIN 

4*2 

c 

HAIN 

483 

C COMPUTE  OISPEPSION  CURVES  OF  GtllCEO  MOOES 

HAIN 

484 

CALL  ALLHOO(NVe. TOM. TAXt'CO.MOFND.OM.VP.KST.KFIN.CMMCO.VPNOO* 

MAIN 

4*5 

1 INMOPE. THETK, KNOP) 

HAIN 

486 

IFINCMOL  .L£.  0)  GO  TO  309 

HAIN 

487 

PCAO(5,NAm51) 

MAIN 

48* 

■ KBEGIN  a KST(HNGRl) 

HAIN 

469 

KENOI  a KFIN (MNGRO ) 

HAIN 

490 

KENOF  S KBEGIN  ♦ NPGR0  ♦ NFGR1  - 1 

HAIN 

491 

IF (KENOp  .LE.  KENOI)  GO  TO  30*5 

HAIN 

492 

KFINP1  » KENOI  + 1 

MAIN 

493 

KFINMO  a KFIN(MOFNO) 

. HAIN 

494 

OO  30*1  LL  = KFINP1, KFINMO 

HAIN 

495 

L * KFINMO  ♦ KFINP1  - LL 

HAIN 

496 

LNEW  a L ♦ KENCF  - KENCI 

HAIN 

497 

OMMOO(LNEH)  a CH“00(L) 

HAIN 

498 

VPMOO(LNEH)  = VPMOO(L) 

HAIN 

499 

AKI (LNEW)  a AKI(U 

HAIN 

500 

AMP (LNEW)  a AMP (L) 

HAIN 

5C1 

3061  CONTINUE 

MAIM 

502 

NNGR0»1  a MNGRO  ♦ 1 

MAIN 

503 

OO  3QS2  KKL  a MNGROP1.MCFNO 

HAIN 

504 

KL  » MNGRQP1  ♦ MOFNO  - KKL 

MAIN 

5C5 

KFIN(KL)  a KF IN  < KL)  ♦ KENOF  - KENOI 

HAIN 

506 

30*2  KST(KL)  « KST(KL)  ♦ KENOF  - KENOI 

HAIN 

507 

GO  TO  3088 • 

HAIN 

508 

30*5  CONTINUE 

MAIN 

509 

KFINPt  a KFIN(MNGRO)  ♦ 1 

MAIN 

510 

KFINMO  a KFIN(MOFNO) 

HAIN 

511 

OO  30*6  L a KFIf.Pl, KFINMO 

HAIN 

512 

LNEW  a L ♦ KENCF  - KENCI 

HAIN 

513 

OMMOO (LNEW)  = OMMOO(L) 

HAIN 

514 

VPMOOILNEH)  a VPMOO(L) 

HAIN 

515 

AKKLNEW)  = AKKLJ 

HAIN 

516 

AHP(LNEW)  a AMP (L) 

HAIN 

517 

3086  CONTINUE 

HAIN 

518 

HNGR0P1  a MNGRO  ♦ 1 

HAIN 

519 

OO  30*7  KKL  = MNGROPl.MCFNO 

HAIN 

520 

KL  « MNGR0P1  ♦ MCFNO  - KKL 

HAIN 

521 

KFIN(KL)  * KFINMKL)  ♦ KENOF  - KENOI 

MAIN 

522 

3087  KST(KL)  = KST(KL)  KENCC  - KENOI 

HAIN 

523 

3081  CONTINUE 

HAIN 

524 

no  o o 
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KSTCMNGR1I  * KGEGIN 

KFIN(MNGRl)  = KST  (MNGR1)  ♦ NPGR1  - 1 
KST(NNGRO)  = KFIN (MNGRl)  ♦ 1 
KFIN(MNGRO)  3 KST(MNGKO)  ♦ NPGRO  - t 

00  3188  L = 1.NPGR1  

LNEW  * KST (NNGfil ) ♦ L - 1 
OHHOO(LNEW)  s 0MGR1  (L) 

VPHOO(LNEW)  3 VPGR1  f t_ ) 

AKl(LNEW)  » AKIGRl(L) 

AHR(LMEW)  * AMPGPl(L) 

3188  CONTINUE 

.00  3089  L 3 i.NFGRO 
LNEW  a KST(MNGFO)  ♦ L - 1 
OHHOD(LNEW)  s OHGR0(L> 

VPNOO(LNEW)  3 VPGRC  (LI  . .. 

AKI (LNEW)  s SKIG9Q (L ) 

AH®(LN£W>  = AMFGRO (LI 
3089  CONTINUE 
309  CONTINUE 
C 

C CHECK  TO  SEE  IF  ANY  POOES  HERE  FOUND 
IF C KMOP  .GE.  0)  GO  TO  320 

EXIT  IF  KHO»  ,LT.  0 

WRITE  (6,311)  KHOP 
311  FORMAT (1H  , 5MKWCP3,  13) 

CALL  EXIT 

CONTINUING  WITH  KWOP  .GE.  0 FROM  308 
IF  CNPRNT  .LE.  0)  GO  TO  350 
C PRINT  NORMAL  MOOE  CISPERSICN  CUPVES 

CALL  MOOLST(MOFHC,OMMOQ.VPMOO,AKI,KST,KFIN) 

c . 

C CONTINUING  FPOM  320  OR  321 

3S0  IF ( NPNCH  .LE.  0)  GO  TO  360  

C 

C PUNCH  NAM5  DATA  IF  NPNCH  .GT.  0 . 

WRITE  (7,3511 

.351  FORMAT  ( 7H  INAM5  ) I 

IUHS  * IHAX  ♦ 1 

...  ..WRITE  (7,272)  IPAX,  (CKI), 1=1, IUHS)  . __  ' 

WRITE  (7,271.)  ( VXI  ( I)  , 1 = 1 , IIIHS) 

WRITE  (7‘,276)  ( VYI  (I ) , I =1 , IUHS)  ..  . 

WRITE(7, 279)  ( HKI)  ,1*1,  IUHS) 

WRITE  (7,352)  THETKO,PCrf.D,(KST(I), I=l,MOFNO) 

352  FORMAT  (11H  THETKO  =, G16 .8 , 1H , /10 H MOFNO  =.I3»lH,/8H 

..  1 ( 6X,G15.8,1H,,G15.8,1H,,G15.8,1H,,G15.5,1M,  ) ) 

WRITE(7,355)  (KF IN ( I ) . 1= l,MDFNO> 

.355  FORMAT  ( 10H  KFIN  = / 

1'  ( 6X,G15.8tlH,,G15.8,lH,.G15.e,lHt,G15.8.1H,  ) ) . 

. KLAST  * KFIN(MCFNO)  . . 

WRITE  (7,357)  (CMMOD (I) , 1=1 , KLAST) 

357  FORMAT  ( 11H  OPMOD  = / . .... 

l ( 6X,G15.8,lH.,G15.!,lH,,G15.«,lH,,G15.a,lH,  ) ) 

WRITE(7, 359)  (VP^OCKI)  ,1  = 1, KLAST)  . .. 

359  FORMAT  ( 11H  VcMOO  = / 

1 ( 6X , G 15 , 8 , 1H , , G15 . 8 , 1H , , G 15 . 8 , 1H , ,G15 . 8, 1H,  ) ) .... 

WRITE  (7,279) 

. WRITE  (6,583)  . . 

WRITE  (6,351) 

WRITE  (6,272)  IHAX,  (Cl  (I ),  I =1  .IUHS)  . . 

WRITE  (6, 27<> ) (VXI(I)  ,I=l,  IUHS) 

‘ WRITE(6,276)  (VyI(I) ,1=1, IUHS) 

WRITE (6,278)  ( HI ( I)  , 1 = 1 .IUHS) 


MAIN 
HAIN 
MAIN 
HAIN 
HAIH 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
• HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
MAIN 
HAIN 
HAIN 
HAIN 
KST  =/  HAIN 
HAIN 
HAIN 
HAIN 
HA  IN- 
HA  IN 
HAIN 
HAIN 
HAI’l 
HAIN 

ha;;n 

HAIN 

HAIN 

HAIN 

HAIN 

HAIN 

HAIN 

HAIN 

HAIN 


525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 
543 
549' 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 
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WRITE  (6*352)  THETKO.MGFNO, (KST(I) ♦ 1=1, MOFNO) 

MAIN 

509 

WRITER, 355)  (KFIN(I)  * 1 = 1, MOFNO) 

HAIR 

590 

WRITE  (6*357)  (CNMOO(I),Isi,KLAST) 

MAIN 

591 

WRIT£(6.359>  (VPMOO(I) ,I=1,KLAST> 

HA  IN 

592 

WRITE  (6*279)  .......  ... 

MAIN 

593 

e 

: " 

HA  IN 

596 

c 

CONTINUING  FROM  350  OR  351 

HAIN 

595 

369  GO  TO  615 

HAIN 

596 

5 



HAIN 

597 

C 

• 

HAIN 

590 

c 

WE  ARRIVE  HERE  IF  FSTART=3  . ...»  . 

HAIN 

599 

600  READ  (5.NAH5) 

HAIN 

6C0 

WRITE  .(6*603) 

HAIN 

601 

603  FORMAT (iw  /////  27H  NAM5  HAS  JUST  BEEN  REAO  IN) 

HAIN 

602 

WRITE  (6«NAM5) 

MAIN 

603 

c 

HAIN 

606 

c 

CONVERT  THETKD  FROM  0EGREES  TO  RADIANS 

MAIN 

605 

THETW  » (3.16159)  • THETKO  / 180.0 

HAIN 

606 

c 

HAIN 

607 

c 

CONTINUING  FROM  360  OR  602 

HAIN 

6C8 

615  REAO  (5.NAM6). 

HAIN 

609 

WRITE  (6,617) 

HAIN 

610 

617  FORMAT (1H  /////  27H  KAK6  HAS  JUST  BEEN  READ  IN) 

HAIN 

611 

WRITE  (6«NAM6) 

HAIN 

612 

c 

, ' . 

MAIN 

613 

c 

COMPUTE  YIELC  INOE«ENOENT  AK«LITUOE  FACTORS  FOR  GUIOEO  MOCES 

HAIN 

616 

CALL  PAM FOE (ZSCRCE.2C8S , MOFNO * KS  T *<F IN*  OMMOO.VPMOO* AKI* 

MAIN 

61S 

. 1 AMP, AL AM* FACT  « THETK,NPKNT) 

HAIN 

616 

c 

HAIN 

617 

650  IF ( NPNCM  .LE.  0)  GO  TO  660 

HAIN 

618 

c 

• 

MAIN 

619 

c 

PUNCH  NAM7  DATA  IF  NeNCH  ,GT . 0 

HAIN 

620 

’..  . KLAST  = KFIN(MOFKO)  _ . 

HAIN 

621 

WRITE  (7,651) (A MO (I) , I ±1, XL AST) 

HAIN 

622 

651  FORMAT  ( 7H  1NAM7  / 9H  AMP  a./ 

HAIN 

623 

1 ( 6X,G15.A,lH,.G15.e,lH,,G15.8,lH,,Gl5.8,lH,  ) ) 

HAIN 

626 

WRITE  (7,652)  ALAM.FACT 

HAIN 

625 

652  FORMAT  ( 1CH  ALAM  a ,G16.«,1H,  / 10H  FACT  a ,G16.«.1H,  ) 

HAIN 

626 

WRITE  (7,655)  MOFNO, (KST (I) ,I31 ,MOFNO) 

HAIN 

627 

655  FORMAT  t 10H  MOFNO  =,I3,1H,/8M  KST 

-f  HAIN 

628 

' 1(  6X*G15.8,1H,,G15.0,1H,,G15.S,1H*,G15.8,1H,  ) ) 

HAIN 

629 

WRITE (7*  355 ) (Kf TN( I) , 1*1, MOFNO) 

HAIN 

630 

WRITE  (7,357)  (OMHOC  <11 ,1=1, KL AST) 

HAIN 

631 

WRITE (7,359)  < VPMQO ( I) , I=1,KLAST) 

HAIN 

632 

WRITE  (7,279)  

■ HAIN 

633 

WRITE  (6,583) 

HAIR 

636 

.WRITE  (6,651) (AMP(I) , 1st, KLAST)  . 

HAIN 

635 

WRITE  (6,652)  ALAM, FACT 

HAIN 

636 

WRITE  (6,655)  MOFNO, (KST ( I) , 1=1, MOFNO) 

MAIN 

637 

WRITE (6,255)  (KFIN( I) , 1=1, MCFNO) 

HAIN 

638 

WRITE  (6,357)  (CHMOO( I) . I =1,KLAST) 

HAIN 

639 

WRITE(6.359)  (VPMOO(I) ,1=1, KLAST) 

HAIN 

6**0 

659  WRITE  (6,279)  . . ...  . . 

HAIN 

661 

c 

HAIN 

662 

c 

CONTINUING  FROM  650  OR  659  . .. i... 

MAIN 

663 

660  GO  TO  515 

HAIN 

666 

e 

• ...  •.£.  . 

MAIN 

665 

c 

: 

MAIN 

666 

c 

WE  ARRIVE  HERE  IF  KSTART=6  . . . - • ■ ..  - 

HAIN 

667 

500  REAO  (5,NAH7)  T 

HAIN 

668 

WRITE  (6,501)  

HAIN 

669 

501  FORMAT (1H  /////  27H  NAM7  HAS  JUST  BEEN  REAO  IN) 

HAIN 

650 

502  WRITE  (6*NAH7) 

HAIN 

651 

c 

HAIN 

652 
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c 

CONTINUING  FROM  460-  ON  502 

MAIN 

653 

515  READ  (5  * NANS ) 

MAIN 

654 

WRITE  (6,516) 

MAIN 

655 

516  FORMAT C 1H  /////  27H  NAMS  HAS  JUST  BEEN  READ  IN» 

MAIN 

656 

i 

517  WRITE  (6»NANS) 

MAIN 

657 

c 

MAIN 

658 

} 

c 

CONFUTE  YIELC  OE°ENOENT  AMPLITUDES  AND  PHASE  TERMS  OF  GUIOEO  MOOES 

NAIN 

659 

CALL  ooAMP(YIELP»HQFN0*  KST *KFIN*CHHOO» VPMOO* 

MAIN 

660 

1AMP,ALAM,FACT,AM?LTD,PHAS0> 

NAIN 

661 

51S  IFf  NPRNT  .LE.  0 ) GC  TO  580 

NAIN 

662 

e 

THE  RESULTS  OF  CALLING  PPAMS  ARE  P=INTEO  OUT  BY  CALLING  TA9PRT 

MAIN 

663 

CALL  TABPRT ( YIELD, MOFNO,KST,KFIN»OMMOO,V>M30.AMPLTO,FHASO> 

MAIN 

664 

c 

MAIN 

665 

c 

CONTINUING  FROM  511  CR  520 

MAIN 

666 

; 

5S0  IFf  NPNCH  .LE.  0)  GO  TO  590 

MAIN 

667 

c 

MAIN 

668 

c 

PUNCH  NAM9  DATA  IF  NPNCH  .GT.  0 

MAIN 

669 

•CLAST  « KFIN(NOFMJ) 

MAIN 

670 

WRITE  (7,5811  (AMPLTOd), 1 = 1, KLAST) 

MAIN 

671 

561  FORMAT  f 7H  lNA*'9  / 124  AMPLTO  = / 

MAIN 

672 

1 f 6X,G15.8,1H,,G15.8,1H,,G15.S,1H,,G15.«,IH,  ) ) 

MAIN 

673 

; 

WRITE  (7,582)  (p«ASO ( I ) , 1=1. KLAST) 

MAIN 

674 

562  FORMAT  ( 11H  PMASO  = / 

-MAIN 

675 

) 

1 ( 6X,Gi5.3,lH,,G15.8.1H,,G15.S,lH,,G15.S,lH,  ) ) 

MAIN 

676 

■ WRITE  (7.45SJ  MCFNC, (KST C) , 1=1 ,*OFND) 

MAIN 

677 

WRITE(7,355)  (KFIN(I), I=l,MOFNO) 

MAIN 

678 

WRITE  (7,357)  (CMMOG t I > .1=1 , KLAST) 

NAIN 

679 

’ 

WRITE (7, 359)  tV°MOO ( I), 1=1, KLAST) 

NAIN 

680  ' 

WRITE  (7,279)  

NAIN 

681 

, 

WRITE  (6,533) 

NAIN 

662 

563  FORMAT ( 1H  /////  41H  THE  FOLLOWING  DATA  HAS  JUST  EEEN  PUNCHED) 

HA  IN 

663 

WRITE  (6.531)  (AMPLTO(I). 1=1, KLAST) 

MAIN 

684 

WRITE  (6,532)  (PHASOCI), 1=1, KLAST) 

MAIN 

685 

WRITE  (6,455)  MOFNC. <KST U > , 1=1 .HOFNO) 

NAIM 

666 

; 

• WRITE  (6,355 ) (KFINfD , I = l,MOF*lC)  _ 

MAIN 

687 

■ WRITE  (6,357)  (OMMOOf  I) , 1 = 1 , KLAST)  ,• 

MAIN 

688 

WRITE(6,o59)  (Vp('QO(I),I=l,KLAST) 

MAIN 

689 

564  WRITE  (6,279) 

MAIN 

690 

c 

MAIN 

691 

c 

CONTINUING  FROM  580  OR  584 

NAIN 

692 

590  GO  TO  615  ..  ' _ . 

NAIM 

693 

c 

NAIN 

694 

c 

. ’ 

NAIN 

695 

1 

c 

WE  ARRIVE  HERE  IF  NSTART*5  • ■ 

MAIN 

696 

600  REAO  (5.NAM9)  

NAIN 

697 

IF(NPRNT  .LE.  0)  GO  TO  615 

NAIN 

698 

WRITE  (6,601)  . . 

NAIN 

699 

601  FORMAT (1H  /////  27H  NAK9  MAS  JUST  BEEN  READ  IN) 

MAIN 

700 

602  WRITE  (6.NAM9)  .-x 

NAIN 

701 

e 

. t 

MAIN 

7C2 

c 

CONTINUING  FROM  590  OR  602 

NAIN 

703 

615  REAO  (5 , NAM10) 

NAIN 

704 

WRITE  (6,616)  'I  ‘ .... 

MAIN 

705 

616  FORHATt  1H  /////  28H  NAM10  HAS  JUST  BEEN  REAO  IN) 

NAIN 

706 

WRITE  <6,NAM10>  

NAIN 

707 

c 

♦ • j*  4 ■ ■ 

MAIN 

70S 

c 

COMMUTATION  CF  WAVEFORM 

MAIN 

709 

CALL  TMPT(TFIRST,TENO,OELTT , RODS, (10FN0, KST, KFIN,OMMOO,VPMOO,AKI, 

MAIN 

710 

1AH®LT0,PHASQ» IOPT)  ...  .. 

MAIN 

711 

e 

MAIN 

712 

c 

REPEAT  POR  NEXT  WAVEFORM  

MAIN 

713 

CO  TO  1 

MAIN 

714 

c 



MAIN 

715 

c 

WE  ARRIVE  HERE  IF  TSTART  = 6. 

NAIN 

716 

c 

ENOPLOT  TERMINATES  THE  CALCCMP  TAPE  FILE. 

MAIN 

717 

CALL  PLOT (0, ,0. ,999) 

MAIN 

718 

CALL  EXIT 

NAIN 

719 

CNO  . 

MAIN 

72C 

nnnnnnnonnonnnnnnonnnnnnnnnnnonnnnnnnnnnonoonnnonnnnnnnnonnoonn 
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SU9R0UTINE  AAAA (OMEGA, AKX, AKY,C,VX,VY«A)  AAAA 

AAAA  (SUBROUTINE)  7/25/68  LAST  CARO  IN  DECK  IS  AAAA 

AAAA 

——ABSTRACT——  AAAA 

AAAA 

TITLE  - AAAA  AAAA 

THIS  SUBROUTINE  COMPUTES  THE  2-0T-2  MATRIX  A OF  COEFFICIENTS  AAAA 
IN  THE  RESICUAL  EQUATIONS  AAAA 

AAAA 

. Q(PHI1) /OZ  * (Atl)*PHIl  ♦ (A12)*PHI2  AAAA 

AAAA 

0(PHI2)/OZ  » (A2l)*PHIi  ♦ (A22)*"HI2  AAAA 

AAAA 

OERlVEO  BY  A.  PIERCE.  J.  COMP.  PHTS..  WOL.  1.  NO.  T,  343.-366.  AAAA 
1967.  (SEE  EON.  <101  OF  THE  PAPER.)  THE  EXPLICIT  EXPRESSIONS  AAAA 
FOR  THE  A(IiJ)  ARE  AAAA 

AAAA 


Alt.l)  = G* (K/fiCM) **2  - GAMNA*G/(2*C»*2>  AAAA 

All. 2)  * 1 - (C’K/BOM) **2  AAAA 

A(2.U  *((G*K)/<80M«C>>**2  - (80N/C) **2  AAAA 

AT2.2)  « -A(l.l)  AAAA 

AAAA 

WHERE  GAHMA=1.4  IS  THE  SPECIFIC  HEAT  RATIO,  G*.Q091  KM/SEC**2  AAAA 
IS  THE  ACCELERATION  CF  GPAWITY,  C IS  THE  SOUNO  SPEEO,  K IS  THE  AAAA 
HORIZONTAL  HAVE  NUMBER  ANO  eOM  IS  THE  OOPPLER  SHIFTED  ANGULAR  AAAA 
FREQUENCY  AAAA 

AAAA 

LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C22-6515-4)  AAAA 

AUTHOR  - A. 0. PIERCE,  H.I.T.,  JULY, 1968  AAAA 

AAAA 

—CALLING  SEQUENCE ..  AAAA 

AAAA 

SEE  SUBROUTINES  ELINT,  MMMM,  NAHPOE.  NHOFN  . ....  AAAA 

OIMENSION  A (2,2 ) ...  AAAA 

CALL  AAAA(OHaGA,AKX,AKY,C,VX,VY,A»  _ _ . AAAA 

AAAA 

NO  EXTERNAL  SUBROUTINES  ARE  REQUIRED  ....  •„  AAAA 

AAAA 

s — — ARGUMENT  LIST- AAAA 


. * * « * 

AAAA 

40 

OMEGA 

R*4 

NO 

IN" 

• 

AAAA 

41 

AKX 

R'-A 

NO 

INP 

AAAA 

42 

AKY 

R*4 

NO 

IN" 

AAAA 

43 

C 

R*4 

NO 

IN" 

AAAA 

44 

VX 

R*4 

NO 

INP  .... 

AAAA 

45 

VV 

R*4 

NO 

INP 

' - 

AAAA 

46 

A 

R*4 

2-BY-2 

OUT  

* 

AAAA 

47 

• * 

AAAA 

48 

COMMON 

STORAGE 

IS  USEO 

• 

_ ....  _ ....  . 

AAAA 

49 

—INPUTS—  ' 

OMEGA  sANGULAR  FREQUENCY  IN  RAO/SEC 

AKX  sx  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER  VECTOR  IN  1/KH 

AKY  =Y  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER  VECTOR  IN  1/KH 

C *S0UN'0  SFEEO  IN  KM/SEC 

VX  =X  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC 

VY  COM°ONENT  OF  HINC  VELOCITY  IN  KH/SEC 


—OUTPUTS  — 

A(I,J)  »(t,J)-TH  ELEMENT  OF  MATRIX  A OF  COEFFICIESTS  IN  THE 

RESIOUAL  EQUATIONS  AS  OEFIMEO  IN  THE  AOSTRACT. 


uoo 
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....PROGRAK  FOLLOWS  BELOW 


DIMENSION  A <2»2) 

80MSQ*<0K£GA-AKX*VX-AKY«VY>**2  . 
CSQ«C*C 

T* <AKX**2*AXY**2I /90HSO 
A<1»1)*.G098*T-.0Q686/CSQ 
C GAHNA*G/2  IS  .00686 

AC1.2)«1.0-CSQ*T 
A ( 2»1> -<  C 96.04E-€J*T-8C‘1SO>/CSO 
C 6**2  IS  96. OLE-6  <M**2/SEC»*4 
A (2<2  > *-A (1.11 
RETURN 
ENO. 


t 


AAAA 

65 

AAAA 

66 

AAAA 

67 

AAAA 

68 

AAAA 

69 

AAAA 

70 

AAAA 

71 

AAAA 

72 

AAAA 

73 

AAAA 

74 

AAAA 

75 

AAAA 

76 

AAAA 

77 

AAAA 

78 

AAAA 

79 

immasamsT~  1 1 1 1 iritwgwi 
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! SUBROUTINE  AKI  ( 0Ml'.0M2  , Al« A2 . CTRIG1 » STRIG1, CTRIG2. 

AKI 

1 

1 STRXG2. 

OELPH, AKIINT) 

AKI 

2 

AKI  I SUBROUTINE!  A/19/68  LAST  CARO  IN  DECK 

IS 

AKI 

3 

• it  , 

AKI 

6 

■ r i 

AKI 

9 

-—-ABSTRACT----  ... 

AKI 

6 

AKI 

7 

TITLE  - AKI 

AKI 

8 

EVALUATION  OF  INTEGRAL  OF  4(0reGA!*C0S(PHI(0M£GAt»  FRCN  OKI 

TO 

AKI 

9 

OH2 

AKI 

10 

AKI 

11 

. 

AC  OMEGA)  ANO  FHKOMEGA)  ARE  ASSUMED  TO  BE'  LINEAR  BETWEEN 

AKI 

12 

ONI  ANO  0M2.  FOLLOWING  THE  METHOD  OF  AKI  ( J.  GEOOHYS. 

AKI 

13 

RES. < VOL.  65  (1060) * »»,  729-740  ).  THE  INTEGRAL  IS 

AKI 

14 

READILY  EVALUATEO  AS 

AKI 

15 

AKI 

16 

(PHI"!**{-1)  • (AI  ♦ A"*(0M2-0Hl)l  • SIMPHIX*X! 

AKI 

17 

AKI 

18 

♦ *HX“**(-2)  * A"  * COS ( PHII  ♦ X) 

AKI 

19 

..  • .. 

AKI 

20 

- PHX"**(«1)  * (AI  - A"  • (0H2  - OKI) 1 • SIN(PH1I 

-X 

AKI 

21 

AKI 

22 

- PNX"**(-2)  • A"  * COS( PHI  - X! 

AKI 

23 

• 

AKI 

24 

WHERE 

AKI 

25 

AKI 

26 

AI  > AVERAGE  VALUE  OF  A *?J  INTERVAL 

AKI 

27 

PMII • ■ AVERAGE  VALUE  OF  »HI  IN  INTERVAL 

AKI 

28 

A"  « 0(A)  / 0 ( OMEGA ) 

AKI 

29 

PHI"  « O(FHI)  / 0 f OMEGA) 

AK.t 

30 

X « PHI"  * (0M2  - 0H1)  / 2 

AKI 

31 

, 

AKI 

32 

• 

A SOMEWHAT  MORE  CONVENIENT  FORMULA  OBTAINABLE  BY  TRIGONO 

AKI 

33 

NITRIC  IDENTITIES  IS  .... 

AKI 

34 

. b « 

AKI 

35 

• • • • .»  « ' • 

AKIINT  * 2 * PHI"**(-1)  * AI  • SIN(X)  * COS(PHII) 

AKI 

36 

AKI 

37 



..  ...  ♦.  I * phi"** (-2)  • a"  * (X  • coscx)  r siN(xn 

AKI 

38 

AKI 

39 

* SXMPHIZ)  . 

AKI 

40 

. 

AKI 

41 

WHENEVER  X IS  SMALL.  SIMX>/X  ANO  COS(X)  ARE  EVALUATEO 

B 

AKI 

42 

USING  Their  POWER  SERIES  REPRESENTATIONS. 

AKI 

43 

AKI 

44 

LANGUAGE 

FORTRAN  IV  (360.  REFERENCE  MANUAL  C28-6S15-4) 

AKI 

45 

AKI 

46 

AUTHORS 

A. 0. PIERCE  ANC  J. POSEY.  M.I.T.,  AUGUST, 1968 

AKI 

47 

, 

AKI 

48 

. 

AKI 

49 

. 

----USAGE---- 

AKI 

50 

' 

AKI 

51 

NO  SUBROUTINES  ARE  CALLEO 

AKT 

52 

AKI 

53 

FORTRAN  USAGE  . . 

AKI 

54 

AKI 

55 

. CALL  AKI(OMl,OM2,Al,A2,CTRIGl,STRIGt,CTRIG2.STRIG2. 

AKI 

56 

1 OELPH, 

AKIINT)  ■ 

AKI 

57 

, ..  . | . w,  , 

AKI 

58 

INPUTS 

AKI 

59 

AKI 

60 

OM1 

LOWER  LIMIT  OF  INTEGRATION  OVER  ANGULAR  FREQUENCY 

AKI 

61 

R*4 

(RACIANS) 

AKI 

62 

AKI 

63 

002 

UPPER  LIMIT  OF  INTEGRATION  (RADIANS) 

AKI 

64 

oooooooooooooooonoooonoooooooooo 
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CTRIG1 

R*4 

STRIG1 

R*4 

OELPH 

R*4. 


CTRXG2 

R*4 

STRIG2 
R*4  . 

AKXINT 

R*4 


VALUE  OR  A AT  OMEGA  * QM1 


VALUE  OF  A AT  OMEGA  « OH2 


coso>i<:>  ynsRE  omega  « omi 


SIN (PHI)  WHERE  OMEGA  * OMI 


(RADIANS) 


COS (i'HX)  WHERE  OMEGA  * OH2 


SIN (PHI)  WHERE  OMEGA  * ONE 


VALUE  OF  INTEGRAL  DEFINED  IN  ABSTRACT  IN  UNITS  OF  A*OH£G 


— — PROGRAM  FOLLOWS  eELOW-—- 


0EL0M»0M2-0M1 

OELAA«A2-Al  , 

AI*(A2»»l)/2.0 

XaQELPH/2.0 

CTRX*COS  (XI  . __ 

STRX*S IN (X) 

CTRIGIsCTRIGl«CTRX-STRIGt*STRX  _ 

STRIGI*STRIGl*CT'JX*-CTRIGt*STRX 
CTRIG2sCTP.IGT*CTRX_STPIGI»SI,X 
STRIG2=STKIGI*CTRX+CTRIGI*S.RX 
IF(A8S«X>-1.0e-2»  20,20,10 
L0  S1*STRX/X 

S2*  t Sl-CTRX* /X**2 
GO  TO  30 

20  S1=1.0-<1.0/6.0»»X*«2*(1.0/120.0)*X*»4 

S2  = (1.0/3.0  5 -U,  0/30. 0J«X»»2  + U.  0/840. 0>*X**4 
30  AKIINT»< AI*Sl*CTRIGI-OELAA*rELPH*0, 2S»S2*STRIGI> »OELON 
RETURN 
ENO 


AKI 

65 

AKI 

66 

AKI 

6/ 

AKI 

60 

AKI 

69 

AKI 

70 

AKI 

71 

. AKI 

72 

AKI 

73 

AKI 

74 

AKI 

75 

AKI. 

76 

AKI 

77 

AKI 

70 

AKI 

79 

AKI 

. 00 

AKI 

81 

■ AKI 

02 

AKI 

83 

AKI 

84 

AKI 

85 

AKI 

86 

AKI 

87 

AKI 

08 

AKI 

89 

:g  AKI 

90 

AKI 

91 

AKI 

92 

AKI 

93 

AKI 

94 

AKI 

95 

AKI 

96 

AKI 

97 

AKI' 

98 

AKI 

99 

AKI 

ICO 

AKI 

101 

AKI 

102 

AKI 

103 

AKI 

104 

AKI 

105 

AKI 

106 

AKI 

107 

AKI 

108 

AKI 

109 

AKI 

110 

AKI 

111 

AKI 

112 

AKI 

113 

AKI 

114 

AKI 

115 

AKI 

116 

ooooonoonooonnnonoonooonnooonooonofnonnoooonnooononnooooooooon oooooo noon 
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SUOROUTINE  ALLHOO <NROM, NCOL, HAXMOO.HDFNO, OH, VP, KST, KFIN.CMMOO, 
t VPMOO,IMMOOE,THETK,KWOP> 

ALLHOD  <SUOROUT  Ii*E)  6/25/68  LAST  CARO  IN  OECK  TS 


YtTLE  - ALLHOO 

PROGRAM  TO  TABULATE  DISPERSION  CURVES  OF  UP  TO  MAXHOO  GUICED 
MOOES.  ONLY  PORTIONS  OK  CURVES  WITH  OMEGA  BETWEEN  OHtl>  ANO 
OMtNCOLI  ANC  WITH  PHASE  VELOCITY  BETWEEN  V®<NCOL>  ANO  V»<1» 

ARE  TABULATED.  THE  ANGULAR  DEVIATION  OF  GROUF  VELOCITY  DIREC- 
TION FROM  *'HASE  VELCCITY  DIRECTION  TWETK  IS  NEGLECTED. 
SUCCESSIVE  KOCES  NUKeEREO  FPOH  i TO  MOFNC  ARE  EACH  TABULATED  B 
CALLING  SU3RCUTINE  MOCETR.  STARTING  POINTS  FOR  EACH  MOOS  ARE 
FOUND  BY  CALLING  SUBROUTINE  NXHODE.  THE  NORMAL  HCOE  CISPERSIO 
FUNCTION  < NMOBl  ShCLLC  BE  NEARLY  ZERO  FOR  EVERY  TA3ULATE0  °OIN 
ON  EACH  DISPERSION  CURVE.  THE  COMPUTATIONAL  METHOD  IS  BASED 
ON  THE  PREVIOUSLY  CCKFUTEO  VALUES  OF  THE  NMOF  SIGN 
INMOOE  C < J-l) *NROW+I)  AT  POINTS  <I,J>  IN  A RECTANGULAR  ARRAY  OF 
NROW  BOWS  ANO  NCOL  COLUMNS.  DIFFERENT  COLUMNS  <J>  COPRESFONO 
TO  DIFFERENT  ANGULAR  FREQUENCIES  OIKJI  WHILE  CIFFER6NT  ROWS  (I 
CORRESPOND  TO  DIFFERENT  PHASE  VELOCITIES  VP<I>.  IT  IS  ASSUMEO 
THAT  VPO.)  .GT.  VF  <2>  .GT.  VF<2>,  ETC.  DISPERSION  CURVES 
OF  VAFIOUS  MODES  APPEAR  ON  THIS  ARRAY  AS  LINES  OF  DEMARCATION 
BETWEEN  ADJACENT  REGIONS  WITH  OPPOSITE  INMODES.  IT  IS  ASSUMED 
THAT  OISPERSICN  CURVES  SLO°E  OOWNWAKOS.  MOOES  ARE  NUMBEREO 
STARTING  FRCH  LOWER  LEFT  OF  INHOOE  ARRAY.  . 

PROGRAM  NOTES  ‘ 


THE  ARRAYS  OMHOO  ANO  VPHOP  ARE  USEO  TO  STORE  OISPERSION 
CURVES  FOR  ALL  THE  MOCES  TO  CONSERVE  STORAGE.  FOR  THE 
NNOOE-TH  MODE.  VPMOO<KST <NMOO£> ♦K-l>  IS  THE  PHASE  VELCCI 
CORRESPONDING  TC  ANGULAR  FREQUENCY  OF  OMHOD<<ST<NMOOE> ♦ 
K-l).  THE  PAIR  OF  VALUES  CORRESPONDS  TO  THE  <-TH  TABULA 
POINT  FCR  THE  MODE.  THE  LAST  TA3ULATE0  POINT  FOR  THE 
NMOOE-TH  MOCE  IS  LAOELEC  BY  THE  °AI®  V°MOC <KFIN<NMOCE» > , 
OHMOOCKFINUlMCCEn.  THUS  OMMQO(K)  « VPMODdO  FOR 
' K .GE.  KST < NMOCE)  ANO  K .LT.  (IFININMODE)  DESCRIBE  THE 

NHOOE-TH  MOCE-S  OISPERSION  C'JtVE. 

THE  FLAG  KWOP  IS  NORMALLY  RETURNED  A?  1.  HOWEVER.  IF 
.NO  OISPERSION  CURVES  ARE  TABULATED,  Tk'OP  IS  RETURNED  AS 

-t. 

LANGUAGE  - FORTRAN  IV  <360,  REFERENCE  MANUAL  C22-6515-4) 

AUTHOR  - A. 0. PIERCE,  H.I.T.,  JUNfc»i968 

s 

——CALLING  SEQUENCE  — 


SEE  MAIN  PROGRAM 

OXMEMSION  ONtl00),VP<100»,KST<10»,KFIN<t0»,OMMOO<i000),VPMOO<1000 
DIMENSION  INMOOE  <10  000 ) 

DIMENSION  CIviOOl.VXlUOGJ  ,VYI<100>  ,HI<100» 

THE  SUBROUTINE  USES  VARIABLE  DIMENSIONING.  THE  ASSIGNMENTS  ABOVE  ARE 
THOSE  GIVEN  8Y  MAIN  PROGRAM 
COMMON  IMAX,CI,VXI,VYI,HI 

ATMOSPHERIC  VARIABLES  MUST  BE  IN  CCKKON  BEFORE  ALLMOO  IS  CALLEO. 

CALL  ALLMOO <HRCW. NCOL, MAXMOO.MOFNO.OM, V», KST, KFIK, CMMOO, VFMOG, 

1 INMOOS. THETK.KWCP 
IFCRWOP  ,NE.  1)  GO  SOMEWHERE 

—EXTERNAL  SUBROUTINES  REQUIRED— 

nxmooe.mooetr.nxtpnt,rt«i,fnmooi.fn.mod2,nmopn,aaaa,rrrr,mmmm,cai, 

NXMOOE  AND  MCOETR  ARE  EXPLICITLY  CALLED.  THE  REST  ARE 
IMPLICITLY  CALLED  BY  CALLING  MQOETR.  FOR  FURTHER  INFORMATION 
ON  If3H  SCIENTIFIC  SUBROUTINE  PACKAGE  ROUTINE  RTMI,  SEE  OOCU- 
MENTATION  OF  MOOETfi. 

—ARGUMENT  LIST . . . 

NROW  1*4  NO  INP 

NCOL  1*4  NO  INP 


ALLHOO 

t 

ALLMOO 

2 

ALLMOO 

3 

ALLMOO 

6 

ALLMOO 

5 

ALLMOO 

6 

ALLHOO 

7 

ALLMOO 

8 

ALLMOO 

9 

ALLMOO 

1C 

ALLMOO 

It 

ALLMOO 

12 

ALLMOO 

13 

ALLMOO 

14 

ALLMOO 

15 

ALLHOO 

16 

ALLMOO 

17 

ALLMOO 

18 

ALLMOO 

19 

ALLMOO 

20 

ALLHOO 

21 

ALLMOO 

22 

ALLMOO 

23 

ALLMOO 

24 

ALLMOO 

25 

ALLMOO 

26 

ALLHOO 

27 

ALLMOO 

28 

ALLMOO 

29 

ALLMOO 

30 

ALLMOO 

31 

ALLMOO 

32 

ALLMOO 

33 

ALLMOO 

34 

ALLMOO 

35 

ALLMOO 

36 

ALLMOO 

37 

ALLMOO 

38 

ALLMOO 

39 

ALLMOO 

40 

ALLMOO 

41 

ALLHOO 

42 

ALLMOO 

43 

ALLMOO 

44 

ALLHOO 

45 

ALLMOO 

46 

ALLMOO 

47 

ALLHOO 

48 

ALLMOO 

49 

ALLMOO 

50 

ALLMOO 

51 

ALLMOO 

52 

ALLHOO 

53 

ALLMOO 

54 

ALLHOO 

55 

ALLHOO 

56 

ALLHOO 

57 

ALLHOO 

58 

ALLHOO 

59 

ALLMOO 

60 

ALLMOO 

61 

ALLMOO 

62 

ALLMOO 

63 

ALLHOO 

64 

ALLMOO 

65 

ALLHOO 

66 

ALLHOO 

67 

ALLHOO 

68 

ALLMOO 

69 

ALLMOO 

70 

ALLHOO 

71 

ALLHOO 

72 

ALLMOO 

73 

ALLHOO 

74 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO  0.0 oooooooooooooooooooooooooooooooooooooo 
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HAXHOO 

1*4 

NO 

XNP 

.... 

ALLNOO 

75 

MOFNO 

1*4 

NO 

OUT 

• 

ALLKOO 

76 

ON 

R*4 

VAR 

IN“ 

ALLMOO 

77 

VP 

«*4 

VAR 

IN® 

ALLMOO 

78 

KST 

1*4 

VAR 

our 

ALLKOO 

79 

KPIN 

1*4 

VAR 

OUT 

ALLHOO 

80 

ONHOO 

R*4 

VAR 

OUT 

ALLNOO 

81 

VPMOO 

R*4 

VAR 

OUT 

ALLMOO 

82 

INMOOE 

1*4 

VAR 

INP 

ALLKOO 

83 

THETK 

R*4 

NO 

IN® 

ALLMOO 

84 

KMOP 

1*4 

NO 

OUT 

ALLNOO 

85 

ALLMOO 

86 

COMHCN  STORAGE 

USED 

ALLNOO 

87 

COMMON  IMAX. Cl, 

VXI. VYI, 

HI, ONEGAC, VPHSEC. THETKP 

ALLHOO 

88 

ALLMOO 

89 

IMAX 

1*4 

NO 

INP 

ALLMOO 

90 

Cl 

R*4 

100  . 

INP 

. 

ALLMOO 

91 

VXI 

R*4 

100 

INP 

ALLHOO 

92 

VYI 

R*4 

ICO 

INP 

ALLMOO 

93 

HI  • 

R*4 

100 

IN® 

ALLMOO 

94 

ONEGAC 

R*4 

NO 

CUT 

(USEC 

INTERNALLY) 

ALLHOO 

95 

VPHSEC 

R*4 

NO 

OUT 

tUSEC 

INTERNALLY) 

ALLMOO 

96 

THETKP 

R*4 

NO 

OUT 

(USED 

INTERNALLY) 

ALLHOO 

97 

m «■ 

— INPUTS 

| • • •• 

AU.HOO 

ALCMOO 

98 

99 

. 

'ALLHOO 

100 

NROW  • 

“NUMBER  OF 

ROWS 

IN  INMOOE  ARRAY.  MAXIMUM  INOEX  OF 

ALLMOO 

101 

VPINI . 

ALLMOO 

102 

NCOL 

“NUMBER  OF 

COLUMNS  IN 

INMODE  ARRAY.  . MAXIMUM.  INOEX 

OF  ALLKOO 

1C3 

OM(N). 

ALLNOO 

104 

HAXMOO  “MAXIMUM  Nt'KSER  0®  MOOES  TO  e£  TABULATED  ALLMOO  105 

ONIN)  “ANGULAR  FREQUENCY  OF  N-TH  COLUMN  IN  INMOOE  ARRAY  ALLMOO  106 

VPfNI  *«HAS£  VELOCITY  OF  N-TH  ROM  IN  INMOOE  ARRAY  . ALLKOO  107 

INHODE  “1,-1,  CR  5 CEFENOING  ON  WHETHER  SIGN  OF  NORMAL  MODE  ALLMOD  103 

, , OISFERSICN  FUNCTION  IS  ♦ 03  5 IF  NMCP  OOESNT  EXIS  ALLMOO  109 

THE  <J-l)*NROW*t-TH  ELEHENT  CORRESPONDS  TO  NMOF  WHEN  ALLMOO  110 

0NEGA*0M.(4),  ®HASE  VELOCITY=VP C I>  . ALLKOO  111 

THETK  “PHASE  VELCCITY  OIRECTION  IN  RACTANS  RECKONEC  COUNTER  ALLKCO  112 

CLOCKWISE  WITH  RESPECT  TO  X AXIS.  ALLMOO  113 

IMAX  “NUMBER  OF  AT.NCS»H£SIC  LAYERS  OF  FINITE  THICKNESS  ALLMOO  114 

CI«I)  “SOUND  SPEED  IN  I-TM  LAYER  ALLMOO  115 

VXICI)  “X  COMPONENT  OF  WINC  VELOCITY  IN  I-TH  LAYER  ALLKOO  116 

VVI(X)  »Y  CCMFONENT  OF  WING  VELCCITY  IN  I-TM  LAVER  ALLMOO  117 

HUH  “THICKNESS  OF  I-TH  LAYER  ALLMOO  113 

. . ALLMOO  119 

—— OUTPUTS— — ALLMOO  120 

ALLKOO  121 

MOFNO  “NUMBER  CF  MODES  FOUNO  ALLMOO  122 

..  KST(N)  - “INDEX  OF  FIRST  TABULATED  POINT  IN  N-TH  NODE  ALLMOO  123 

KFIN(N)  “INDEX  OF  LAST  TA3ULAT£0  POINT  IN  N-TH  MODE.  IN  ALLMOO  124 

GENERAL.  KFIN(N)=XST(N»l)-t.  ALLMOO  125 

OMMOOTNI  “ARRAY  STORING  ANGULAR  FREQUENCY  090INATE  OF  FOINTS  ALLMOO  126 

ON  CISFERSION  CURVES.  THE  NMOCE  HOCE  IS  STOREO  FOR  ALLMOO  127 

N BETWEEN  KST {NMOCE)  AND  KFINtNMOOS) . ALLMOO  128 

VPMOD(N)  “ARRAY  STOKING  PHASE  VELOCITY  ORDINATE  OF  “OINTS  ON  ALLMOO  129 

OIS"ERSION  CURVES.  THE  NMCOE-TH  HOOE  IS  STOREO  FOR  ALLKOO  130 

N BETWEEN  KST (NMOCE)  AND  KFINTNMOOE).  ALLMOO  131 

KWQP  »-l  IF  NC  MODES  ARE  TABULATED.  OTHERWISE  IT  IS  1.  ALLMOO  132 

QMEGAC  “INTERNALLY  USED  FREQUENCY  TRANSMITTED  AMONG  SU3R0UTI  ALLMOO  133 

THROUGH  COMMON  ALLMOO  134 

VPHSEC  “INTERNALLY  USED  PHASE  VELOCITY  TRANSMITTED  AMONG  ALLKOO  135 

SUBROUTINES  THROUGH  COMMON  ALLMOO  136 

THETKP  “SAME  AS  THETK  ALLMOO  137 

ALLNOO  138 

, —EXAMPLE—— . ALLMOO  139 

ALLHOO  140 

SUPPOSE  THE  TAELE  OF  INMCOE  VALUES  IS  AS  SHOWN  BELOW  WITH  ALLMOO  141 

ALLMOO  142 

NR0W=6»  KCOL“10 _ : ALLMOO  143 

♦♦♦—♦A—  ALLMOO  144 


oo  non  o . o o o o n o nono  n nn  o o o o nonnonooooonoo 
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IF  MAXK0O«10,  YOU  SHOULD  FINO  H0FN0*6. 


KSTtl) *1 
KST<2)*5 
KSTdMll 
KST(4>  »22 
KST(5> *30 
KST(6>  »35 


KFINtl)»4 

KFIK(2)*li 

KFIN(3)*21 

KFIN(4)*2R 

KFIK(5>*34 

KFIN(6>*36 


ONMOCtl-36) 

V»H0ail-36> 


SHOULC  B 
TA-3UL  ATE 


—-PROGRAM  FOLLOWS  BELOW 


DIMENSION  CI(IOO).VXHIOO) .VYIflOC) ,HI(1G0J 

DIMENSION  01(11 .VP{l)f<ST(l),KFIs(i). OMNQO (1)  « VPHOQ (1) » INMO0E 11) 
COMMON  IMAX.Cl, VXI, VYI.H  X, GMEGAC, V°HSEC, THETKP 

STORE  TMtTK  IN  COMMON 
THETK«*THETK 

AT  THIS  POINT*  W£  HAVEN-T  FCUNO  ANY  MOOES 
. HOFNO*0  . . 

WE  START  SEARCH  FOR  «IRST  MCCE  IN  LOWER  LEFT  CORNER  CF  INHOOE  ARRAY. 
WE  SEEK  A POINT  WITH  XNHCOE  ,NE.  S WHERE  THE  NHCF  EXISTS. 

NMOOE*1 
KST  (NM00EM1 

IST«NROW  . . 

THE  SEARCH  GOES  TO  THE  RIGHT.  IF  WE  OOM-T  FINO  A POINT  IN  THE  S07T0H 
ROM,  WE  TRY-  THE  (NROW-U-TH  ROW.  ETC.  . AT  STATEMENT  2 WE  ARE  STAFTING 
AT  THE  LEFT  OF  A GIVEN  ROW.  . . 

2 JST*1 

. . 3 J50«CJST*1I*NROW+IST  „ ...  \ _ • ....  .......  .. 

I0*INMOOE (J50) 

..  . IFCIO  .NE.  5)  GO  TO  10 

) 

IF  JST  IS  NOT  NCOL  WE  GO  TO  THE  RIGHT.  . . 

IF ( JST  .EQ.  NCCL)  GO  TO  5 

. JST«JST*1  

SO  TO  3 . 

AT  THIS  POINT  WE  HAVE  EXHAUSTED  AN  ENTIRE  ROW.  WE  GO  TO  THE  NEXT 
HIGHER  ROW  FROVIOEO  1ST  .NE.  1.  IF  1ST  IS  1,  THE  ENTIRE  SET  OF 
INMOOES  ARE  5. 

.5  IF  (1ST  .EQ.  1)  CO  TO  7 

IST«IST-l 

GO  TO  2 ...  .... 

i.  7 WRITE  (6,6) 

8 FORMAT (1H0.51HTHE  NORMAL  HOOE  DISPERSION  FUNCTION  DOES  NOT  EXIST 
..  1 26HF0R  ANT  POINT  IN  THE  ARRAY  / 1H  . 22HALLHOO  RETURNS  KWOP*-l) 

8 KW0P=-1 

RETURN  ..  ...  ..  .. 

STATEMENT  10  IS  START  OF  LCOP.  EACH  PASSAGE  THROUGH  LOOP  CORRESPONDS 
TO  A GIVEN  MODE. 

10  CALL  NXHOOE  ( 1ST  ,JST>/NCCL,NROW,  1NM00E,IFN0,JFN0.K£X) 

IF  YOU  CANNOT  FINO  THE  FIRST  MODE  YCU  ARE  IN  TROUBLE 
IFtNMOOE  .NE.  1)  GO  TO  15 
IF(KEX  .EQ.  1)  GO  TO  15 
WRITE  (6,11) 


1 
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11  'FO.RK*T<1HO,36HNXKOO£  COULO  NOT  FIND  THE  FIRST  NODE/  1H  * 

ALLMOO 

209 

122NALLMOO  RETURNS  KWOP*-ll 

ALLMOO 

210 

CO  TO  9 . .. 

ALLHOO 

211 

e 

ALLMOO 

212 

c 

IF  THE  HOOE  SOUGHT  IS  NOT  THE  FIRST  ANO  YOU  CANNOT  FINO  IT,  THEN 

THE 

ALLMOO 

213 

6 RETURN  IS  CONSIOESEO  SATISFACTORY. 

ALLNOO 

214 

15  IFCKEX  .EQ.  -1)  GO  TO  50  _ 

ALLMOO 

215 

e 

ALLMOO 

216 

c 

HE  NON  TABULATE  THE  NMOCE-TM  HOOE 

ALLNOO 

217 

CALL  ■MCQETPdFNO.JFNO.NMCOE.KST .KFIN.OMMOD.VPHOO.NROW.NCOL. INMOOE 

ALLHOD 

216 

1 OM» VP.KRUO)  .... 

ALLKOO 

219 

c 

ALtMOO 

220 

c 

IT  IS  00U3FUL  THAT  KRUO  COULO  PE  -1.  HOWEVER,  IF  IT  OIO  HAPPEN, 

WE 

ALLMOO 

221 

c 

HOULO  LIKE  TO  KNOW  THAT  IT  OIO. 

ALLNOO 

222 

IF(KRUO  .EQ.  1)  GO  TO  30  . . 

ALLHOO 

223 

WRITE  (6.21)  NMOCE.IFN'O.JFNO 

ALLNOO 

224 

21  FORMAT (1HC.23HHOCETR  RETURNS  KPU0*-1.,2X,2SHCURRENT  VALUE  OF 

NMOO 

ALLMOO 

225 

1 IS.  14,  3H.  , 5HIFNC*  » 14, 3H,  , 5HJFNO*.  14/  1H  .27HSEE 

COCUM 

ALLMOO 

226 

2NTATION  OF  ALLMOC)  

ALLNOO 

227 

c 

ALLKOO 

226 

c 

HE  KEEP  NNOQE  THE  SAFE  ANC  TRANSFER  CONTROL  TO  STATEMENT  35 

ALLMOO 

229 

CO  TO  35 

ALLNOO 

230 

30  HOFNO*FOFNO*1 

ALLHOO 

231 

c 

ALLKOO 

232 

c 

THIS  IS  THE  CURRENT  NUMBER  CF  MOOES  FOUND. 

ALLMOC. 

233 

c 

HE  NOW  CHECK  IF  THIS  IS  MAXMOO.  IF  IT  IS.  THE  RETURN  IS  WITH  KWCP«1. 

ALLHOO 

234 

IFCNOFNO  .CQ.  MAXMOO)  GO'  TO  50 

ALLHOO 

235 

NMOOE*NMOOE»l 

ALLHOO 

236 

KST (NMOOEJ  *KFIN  (NMOOE-1 1*1 

ALLKOO 

237 

c 

ALLHOO 

236 

c 

HE  SEEK  NEW  1ST  ANO  JST  BEFORE  CALLING  NXHOOE. 

ALLKOO 

239 

35  J52* { JcNP-i) *NROW*IFNQ 

ALLHOO 

240 

. IO*INMOOc<J52)  . . . . . 

ALLKOO 

241 

IFTIFNO  .EQ.  U CO  TO  40 

ALLHOO 

242 

c 

„ __  * _ . ..  . . • 

, 

ALLHOO 

243 

c 

HE  CHECK  INMOOE  OF  POINT  AeOVE 

ALLKOO 

244 

J3*(JFNQ-1)*NR0W»IFN0-1  .... 

ALLHOO 

245 

XUP* INMOPE (J3) 

ALLHOO 

246 

c 

ALLHOO 

247 

c 

IF  THIS  IS  -10,  THE  FOINT  AeOVE  IS  THE  ONE  OESIRED 

ALLHOO 

246 

IF UUP  .NE.  -10)  GO  TO  40  

ALLHOO 

249 

IST*IFNO-l 

ALLHOO 

250 

JST*JFNQ  * . . „ . . 

ALLNOO 

251 

CO  TO  10  . 

ALLHOO 

252 

c 

ALLKOO 

253 

c 

HE  CHECK  INHOOE  OF  POINT  TC  RIGHT.  THERE  IS  NO  PLACE  TO  GO  IF  JFNO* 

ALLHOO 

254 

c. 

NCOL.  THIS  IS  INTEP°RETEO  AS  SUCCESS  “R3VI0ING  MQFNO  .NE.  0. 

ALLHOO 

255 

40  IF< JFNO  .NE.  NCGL)  GO  TO  43 

ALLHOO 

256 

CO  TO  50  ,.  . 

ALLHOO 

257 

c 

* '*  ' • 

ALLMOO 

258 

c 

IRT  IS  INMOOE  OF  POINT  TO  RIGHT  ...  

ALLKOO 

259 

J4* < JFNO) *NROW*IFNO 

'ALLKOO 

260 

IRT* INMOOE ( J4 ) 

ALLKOO 

261 

IFtIRT  .NE.  -10)  GO  TO  50 

ALLHOO 

262 

IST*IFNO  _ 

ALLMOO 

263 

4ST*JFN0U 

ALLHOO 

264 

CO  TO  10  . .........  ._ 

ALLMOO 

265 

c 

ALLHOO 

266 

c 

THE  SEARCH  HaS  TERMINATEC • IF  MOFNO=0,  HE  HAVE  BEEN.  UNSUCCESSFUL. 

ALLMOO 

267 

50  IF (MOFNO  .EQ.  0)  GO  TO  9 

ALLHOO 

268 

KWOP*l 

ALLHOO 

269 

RETURN 

ALLHOO 

270 

END 

-ALLMOO 

271 

t 
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SUBROUTINE  AM8NT (Z. PRESUR, I)  AHRMt  t 

AH9NT  (SUBROUTINE)  7/27/66  LAST  CARO  IN  DECK  IS  AHPNT  2 

AMBNT  3 

——ABSTRACT——  ANBNT  6 

ANBKr  5 

TITLE  - AM8NT  ANBNT ' 6 

• THIS  SUBROUTINE  COMPUTES  THE  AMBIENT  PRESSURE  IN  CVNES/CH**2  AMBNT  7 

AT  A GIVEN  ALTITUDE  Z KM  BY  USE  OF  THE  EQUATION  AMBNT  8 

AMBNT  9 

PRESUR  * (1.E6) *£XF (-INTEGRAL  FROM  0 TO  Z OF  GAM»A*G/C**2>  AMDNT  10 

AMBNT  11 

. WHERE  1.E6  CYNES/CM—2  IS  THE  AMBIENT  PRESSURE  AT  THE  GROUND,  AMDNT  12 

GAMMA*1,4  IS  THE  SFECIFIC  HEAT  »ATIO  FOR  AIR,  G*.009P  KM/SEC**  AHRNT  13 

IS  THE  ACCELERATION  OF  GPAVITY,  AND  C IS  THE  ALTITUDE  CEaENCEN  AMDNT  14 

SOUND  SPEED  IN  KM/SEC.  THE  A"OVE  EQUATION  FOLLOWS  FROM  THE  AHRNT  IS 

HYOROSTATIC  ECUATICN  O(P0)/QZ  * -G*SHOQ  AND  THE  I0EAL  GAS  LAW  AMDNT  16 

C**2  * GAMMA *eQ/RHO0 , AMBNT  17 

AMBNT  16 

THE  SOUND  SPEED  PROFILE  IS  THAT  OF  A MULTILAYER  ATMOSPHERE  ANO  AMBNT  19 

IS  PRESUMED  TO  OE  STORED  IN  COMMON  BEFORE  EXECUTION.  THE  AMBNT  20 

PROGRAM  ALSO  RETURNS  THE  INOEX  I OF  THE  LAYER  IN  WHICH  2 LIES,  AMBNT  21 

AMBNT  22 

PROGRAM  NOTES  AMBNT  23 

AMBNT  24 

IN  THE  EVENT  THAT  THE  INPUT- VALUE  OF  2 SHOULD  BE  NEGATIV  AMBNT  25 

THE  FIRST  LAYER  IS  ASSUMED  TO  HOLD  FOR  Z .LT.  0 WITH  THE  AM8NT  26 

AHOIENT  PRESSURE  STILL  EQUAL  TO  1.E6  AT  Z*0.  THE  PROGRA  AMBNT  27 

RETURNS  PRESUR  ,GT.  1,E6  AND  1*1.  AMBNT  20 

AMBNT  29 

LANGUAGE  - FORTRAN  IV  (360.  REFERENCE  MANUAL  C2Z-6515-4)  AMBNT  30 

AUTHOR  - A, 0. PIERCE,  M.I.T.,  JULY, I960  AMBNT  31 

, . . . AMBNT  32 

—CALLING  SEQUENCE—  AMDNT  33 

AMBNT  34 

SEE  SUBROUTINE  PAMPOE  AMBNT  3$ 

DIMENSION  CI(100l,VXI(130).UYX(100),HI(100t  AMBNT  36 

COMMON  IMAX,CI.VXI,VYI,HI  (THESE  MUST  86  STQREO  IN  COMMON)  AMBNT  37 

CALL  AM3NT(Z.PRESURtI)  ....  AMBNT  38 

• AMBNT  39 

—EXTERNAL  SUBROUTINES  REQUIRED—  AMBNT  40 

AMBNT  41 

NO  EXTERNAL  SUBROUTINES  ARE  REQUIRED,..  AMBNT  42 

AMBNT  43 

_ . ARGUMENT  LIST ...  AMBNT  44 

AMBNT  45 


z 

R*4 

NO 

IN® 

AMBNT 

46 

PRESUR 

R»4 

NO 

OUT 

AMBNT 

47 

Z 

1*4 

. NO 

OUT 

ANBNT 

48 

AMBNT 

49 

COMMON  STORAGE 

USEO 

AMBNT 

50 

COMMON  IMAX.CI, 

VXI, VYI, HI 

AMBNT 

51 

* . * 

AMBNT 

52 

IhAX 

1*4 

NO 

INP 

AMBNT 

53 

Cl 

R*4 

100 

INP 

AMBNT 

54 

VXI 

R*4 

ICO 

IN* 

(NCT 

USEO 

BY 

THIS 

SUBROUTINE) 

AMBNT 

55 

VYI 

R*4 

IOC 

INP 

(NCT 

USED 

BY 

THIS 

SUBROUTINE) 

AMBNT 

56 

HI 

R*4 

100 

INP 

AMBNT 

57 

AMBNT 

56 

• m 

—INPUTS 

AMBNT 

59 

AMBNT 

60 

2 

•HEIGHT  IN 

XM 

AMBNT 

61 

! 
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INAX  «NUH®ER  OF  ATHOS®H£RIC  LAYERS  WITH  FINITE  THICKNESS 

MCI)  «S0UN0  SPEEO  (KM/SECJ  IN  I-TH  LAYER 

VXXCI)  *X  COMPONENT  OF  WINC  VELOCITY  TKM/SEC)  IN  I-TH  LAYER 

VYHII  *Y  COMPONENT  OF  WIND  VELOCITY  tKH/SEO  IN  I-TH  LAYER 

HXUI  (THICKNESS  IK  KH  OF  I-TH  LAYER 

— — OUTPUTS 

PRESUR  (AMBIENT  PRESSURE  IN  0YNES/CM*»2  AT  ALTITUDE  Z 
I »INOEX  OF  LAYER  IN  WHICH  Z LIES 

' — — PROGRAM  FOLLOWS  BELOW-— 


DIMENSION  AND  COMMON  STATEMENTS 

DIMENSION  CI(lOC)iVXI(100t»VYI(100l»HM100) 

COMMON  IMAX.CI.VXI.VYI.HI  

THE  FINAL  VALUE  OF  ENPON  WILL  DE  THE  INTEGRAL  FROM  0 TO  Z OF 
«GAMNA*G/C**2.  THE  RUNNING  VALUE  HILL  BE  THE  SUBTOTAL. 
ENPONsO.O 

THE  RUNNING  VALUE  OF  I MILL  BE  THE  LAYER  BEING  CONSICEREO 

I«1 

Z LIES  IN  LAYER  1 IF  INAX(fl. 

zr«o.o 

IFUMAX  .ED.  01  GO  TO  30  

TOP  OF  FIRST  LAYER 
ZT«HI*1» 


THE  START  OF  A LOOP.  THE  CURRENT  ZT  DENOTES  THE  TOP  OF  THE  I-TH  LAYE 
10  IF*  Z .GT.  ZT  I GO  TO  20  ......  ... 

Z LIES  IN  I-TH  LAYER  * _ 

ZT-HItll  IS  HEIGHT  OF  BOTTOM  0*  I-TH  LAVER 
Z-ZT*HI*I)  IS  OISTAKCE  OF  Z ABOVE  BOTTOM  OF  I-TH  LAYER 
CNPON*£NPJN-l .4*  <«G09i/CI(II**2>* (Z-ZT *HI Cl ) 1 
12  GO  TO  40  ....  .. 

Z LIES  ABOVE  TOP  OF  I-TH  LAYER  ! 

20  ENP0N*ENF0N-1.4*  t.0096/CHI)**2T#HI*IJ 
THE  CURRENT  CN»ON  IS  THE  INTEGRAL  OF  -1,4*G/C*»2  UP  TO  THE  TOP 
OF  THE  I-TH  LAYER 

i«m  ^ _ 

IF*I  .GT,  IHAX)  GO  TO  30 

ZT»2T*HI*I)  ..  ; __ 

ZT  IS  THE  TOP  OF  THE  NEW  I-TH  LAYER  “ 

GO  TO  10  . • ' 

END  OF  LOO® 


Z LIES  IN  UP=ER  HALFSPACE 
30  ENPON*ENPQN-1.4*(.a09«/CItIJ*»2)**Z-ZT». 

CONTINUING  FRON  t2  OR  30 
40  PRESUR*! .E6*EXP  * £N°ON> 

RETURN 

ENO 
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SURROUTINE  ATMCS (T. VKNTX .VKNTY* ZI. WANGLE .WINOY.L ANGLO 

ATMOS  (SUBROUTINE)  6/19/68  LAST  CARO  IK  DECK  1$ 


—ABSTRACT— 


TITLE  - ATMOS 

TABULATION  CF  HIM)  VELOCITT  CCMPONENTS  ANO  SPEED  OP  SCUNO  POR 
ALL  LAYERS  OF  MODEL  ATMOSPHERES 

THE  MODEL  ATMOSPHE»E  CONSISTS  OF  UP  TO  100  ISOTHERMAL 
LAYERS  (THE  TCP  LAYER  SEING  INFINITE).  EACH  LAYER  MAY 
HAVE  A UNIQUE  TEMPERATURE*  THICKNESS  AND  WIND  VELOCITT. 
SUBROUTINE  ATHOS  CONVERTS  AN  INPUT  DESCRIPTION  OF  THE 
ATMOSPHERES  PROPEFTIES  INTO  ONE  HOSE  APPROPRIATE  FOR  TH 
CALCULATIONS  TC  FOLLOW  (SUCH  AS  EVALUATION  OF  THE  NORMA 
MODE  GISPERSICK  FUNCTION  IN  MMQFN.  DESCRIBED  ELSEWHERE  I 
THIS  SERIES). 

LANGUAGE  - FORTRAN  IV  (360.  REFERENCE  MANUAL  CZ8-6515-4) 

AUTHORS  - A. 0. PIERCE  ANC  J. POSEY.  M.I.T.*  JUNE. 1968 

—USAGE— 

IMAX  MUST  BE  STORED  AS  THE  FIRST  VARIABLE  IN  UNLABELEO  COMMON  WHE 
ATHOS  IS  CALLEC.  . 

NO  FORTRAN  SUBROUTINES  ARE  CALLEO. 

FORTRAN  USAGE 

CALL  ATKQS(T. VKNTX.VKNTY. ZI* WANGLE. WINDY. LANGLE) 


INPUTS 

IMAX 

1*4 


NUMBER  OF  LAYERS  CF  FINITE  THICKNESS  IN  THE  MODEL  ATMOS- 
PHERE. ( 1.LS.IMAX.LE.99  » 

T(I)  IS  TEMPERATURE  OF  LAYER  I IN  MODEL  ATMOSPHERE. 


R*4(0)  (OEGREES  KELVIN) 


VKNTX 


VKNTX(I)  IS  HIND  VELOCITY  COMPONENT  IN  X-GIRECTION  (WEST 


R*4(0>  TO  EAST)  FOR  LAYER  I.  (KNOTS) 

4 

VKNTY  VKNTY(I)  IS  WINC  VELOCITY  COMPONENT  IN  Y-CIRECTION  (SOUT 

R*4(0I  TO  NORTH)  FOR  LAYER  I.  (KNOTS)  _ 

ZI  1(1(1)  IS  THE  HEIGHT  ABOVE  THE  GROUNO  OF  THE. TOP  OF  LAYER 

R*4(0»  I.  (KM) 

WANGLE  WANGLE (I)  IS  HINO  VELCCITT  DIRECTION  FOR  LAYER  I.  RECKON 
R*4(0>  COUNTER  CLOCKWISE  FROM  THE  X-AXIS.  (OEGREES) 

WINOY  WINDY (I)  IS  MAGNITUDE  OF  WIND  VELOCITY  IN  LAYER  I. 

R*.4(0)  (KNOTS) 

LANGLE  SPECIFIES  WHICH  SORT  OF  WINO  OATa'Ys  INPUT"’" 

•1*4  IF  LANGLE. LE. 3 . VKNTX  AND  VKNTY  ARE  INPUT. 

IF  LANGLE. GT.fl  . WANGLE  AND  WINDY  ARE  INPUT. 


OUTPUTS 


THE  OUTPUTS  ARE  STOREO  IN  UNLABELEO  COMMON  IN  THE  FOLLOWING 
ORO£P.  BEGINNG  IN  POSITION  2. 

CI(lOO).VXKiaO)  .VYKIOO.HKIOO)  

Cl  CI(I)  IS  THE  SFEEO  CF  SOUNO  IN  LAYER  I OF  THE  MOOEL  ATHO 

R*4(0)  PHERE.  ( KM/SEC  J 


ATMOS 

1 

ATMOS 

z 

ATHOS 

3 

ATMOS 

4 

ATMOS 

9 

ATMOS 

6 

ATMOS 

7 

ATHOS 

e. 

ATMCS 

9 

ATMOS 

10 

ATMOS 

11 

ATMOS 

1Z 

ATMOS 

13 

ATMOS 

14 

ATMOS 

15 

ATMCS 

16 

ATMOS 

17 

ATMOS 

18 

ATHOS 

19 

ATHOS 

ZO 

ATMOS 

ZI 

ATHOS 

ZZ 

ATHOS 

23 

ATHOS 

24 

ATMOS 

Z5 

ATHOS 

26 

ATHOS 

27 

ATMOS 

28 

ATMOS 

29 

ATHOS 

30 

ATMOS 

31 

ATHOS 

32 

ATMOS 

33 

ATMOS 

3*. 

ATMOS 

35 

ATMCS 

36 

ATMOS 

37 

ATMOS 

38 

ATHOS 

39 

ATHOS 

40 

ATHOS 

41 

ATHOS 

. 42 

ATMOS 

43 

ATMOS 

44 

ATMOS 

45 

ATMOS 

46 

ATMOS 

47 

ATMOS 

48 

ATMOS 

49 

ATMOS 

50 

ATMOS 

51 

ATMOS 

52 

ATMOS 

53 

ATMOS 

54 

ATMOS 

55 

ATMOS 

56 

ATMOS 

57 

ATMOS 

58 

ATMOS 

59 

ATMOS 

60 

ATMOS 

61 

ATMOS 

62 

ATMOS 

63 

ATMOS 

64 

ATMOS 

65 

ATHOS 

66 

ATMOS 

67 

ATMOS 

68 

ATMOS 

69 

ATMOS 

70 

i 


e 

- 

ATMOS 

71 

e 

VXI  VXI (I)  XS  MINE  VELOCITY  COMPONENT  XN  X-CXRECTIOK 

(WEST  T 

ATMOS 

72 

e 

*•4(0)  EAST!  FOR  LAYER  I.  t KM/SEC  > 

ATHOS 

73 

e 

ATHOS 

74 

c 

VYX  VYX(I)  IS  WING  VELOCITY  COMPONENT  XM  Y-CIRECTION 

(SOUTH 

ATHOS 

75 

c 

R*4  (O)  TO  NORTH)  FOR  LAYER  I.  1 tC'/SEC  ) 

ATHOS 

76 

c 

ATHOS 

77 

e 

HI  Hill)  IS  THE  THICKNESS  OF  L4V . ’ I.  C KM  ) 

ATHOS 

7$ 

c 

**vto>  ...  ....  

ATHOS 

79 

e 

ATMOS 

40 

c 

ATMOS 

81 

c 

•— PROGRAM  FOLLOWS  BELOW 

ATHOS 

82 

c 

ATHOS 

•3 

c 

ATHOS 

84 

6 

ATHOS 

85 

DIMENSION  Cl (100), VXI (130) .VYX (100 > .NX (130) 

ATHOS 

86 

DIMENSION  T (100)  .VKNTX  (100)  . VKNTY (100)  ^<.’1  (100) 

ATHOS 

87 

DIMENSION  WANGLE (100) .WINOY (100) 

ATHOS 

88 

COMMON  IMAX,CI.VXI.V¥I,KI  . . 

ATHOS 

89 

e 

ATHOS 

90 

C JET  XS  TOTAL  NUM9EF  OF  LAYERS.  . . 

ATHOS 

31 

JET  * IMAX  ♦ 1 

ATMOS 

92 

XMAX  * JET  - 1 

ATHOS 

93 

IF  (LANC-LE  .LE.  0)  CO  TO  20  • .. 

ATHOS 

94 

03  « 3.1*1592 7 / 140.0  . . 

ATHOS 

95 

C 

03  XS  THE  NUM8ER  OF  RAOXAKS  XN  A DEGREE 

ATMOS 

96 

c 

ATHOS 

97 

c 

IF  VKNTX  AND  VKNTY  WERE  NOT  INPUT,  THEY  ARE  NOW  DETERMINED  FROM  WINOY 

ATHOS 

98 

c 

AND  WANGLE.  

ATHOS 

99 

00  5 1*1. JET 

ATHOS 

100 

VKNTX (I)  * WINCY(X)  * COS(C3*W4NGLE(tl ) * . .. 

ATHOS 

101 

5 VKNTY(I)  * WINOY  ( I > * SIMC3*WANGLE(I)  ) 

ATMOS 

102 

*20  01  ■ 1.4  * 9.314*  * 0.001  / 20.0  '.  . . 

ATMOS 

103 

c 

02  IS  THE  NUMBER  OF  KM/SEC  PER  KNOT. 

ATMOS 

104 

. 02  ■ 0.00051*8  . ..  . ...... 

ATHOS 

105 

e 

* 

ATMOS 

106 

00  30  I » 1, JET 

ATHOS 

107 

c 

. 

ATMOS 

108 

c 

THE  SPEEO  OF  SOUND  * ( GAMMA  * P / RMQ  ) FOR  PERFECT  GAS,  AND 

( P/RHO 

ATMOS 

109 

c 

* t R * T ) 

ATMOS 

110 

c 

R XS  THE  (UNIVERSAL  GAS  CONSTANT) /(MOLECULAR  WEIGHT) 

ATMOS 

111 

CI(I)  * SORT (D1*T (X) ) 

ATMOS 

112 

c 

ATMOS 

113 

5 

C 02  * W(KNQTS)  ) * V (KM/SEC) 

ATMOS 

114 

vfcKI)  * 02  * VKNTX  (I)  . — . 

ATMOS 

115 

JO  VYI(I)  * 02  * VKNTY (I)  * 

ATMOS 

116 

. XF(  IMAX  .EQ.  0)  RETURN  *-  . . v... 

ATMOS 

117 

HI (1)  * 21(1) 

ATMOS 

118 

IF  (IMAX  .El.  1)  RETURN  . , 

ATMOS 

119 

00  40  1*2. IMAX 

ATMOS 

120 

44  HI(I)  * 21(1)  - 21(1-1)  . . 

ATMOS 

121 

RETURN 

ATHOS 

122 

ENO.  . - 

. , , . . . 

ATMOS 

123 

90 
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SUBROUTINE  BB09(X,R1,R2,R3) 

BBSS 

1 

c 

BBBB  (SUBROUTINE)  7/25/08  LAST  CARO  IN  OcCK  IS 

B888 

Z 

c 

• 

sees 

3 

c 

ABSTRACT 

BBSS 

4 

c 

BBOB 

5 

c 

TITLE  - 

• BBSS 

B8B8 

6 

c 

THIS  SUBROUTINE  CCMFUTES  THPEE  FUNCTIONS  Rt»R2,R3  OF  A VARIABL 

BBBB 

7 

c 

X.  THESE  ARE  OEFINEC  FOR  X .GE.  0 OT  THE  FORMULAS 

BBB8 

8 

c 

BBBB 

3 

c 

Rl«  1.0  ♦SINH(2Y)/(2Y) 

BBBB 

10 

c 

BBBB 

11 

c 

»2*  (SINH (2Y) /2V  - 1.6>/Y**2 

BOSS 

12 

c 

BBBB 

13 

c 

R3*  (COSH(2YI“l,0)/f**2 

BBBB 

14 

c 

BBBB 

15 

c 

WHERE  Y=  SCRT(X).  FORMULAS  FOR  NEGATIVE  X HAY  BE  03TAINE0  BY 

6399 

16 

c 

ANALYTIC  CONTINUATION.  FOR  SMALL  VALUES  OF  X.  THE  FUNCTIONS 

BBBB 

17 

c 

ARE  COMPUTABLE  BY  THE  POWER  SERIES 

B989 

18 

c 

D8B3 

19 

c 

Rl*  2 ♦ 4X/(3FACT>  ♦ (AX) »*2/(5FACT)  ♦ (4X)**3/(7FACTI  ♦... 

BBBB 

29 

c 

* 

CBB9 

21 

c 

»2*  4/(3FACTI  ♦ 4* (4X)  / (5F5CT  > ♦ 4*  (4X>  ••2/(7FACT>  ♦ ... 

aeaa 

22 

c 

eB89 

23 

c 

R3*  4/C2FACT)  ♦ 4*  (4X)  / (4FACT  >•  ♦*  V*-(4X)  **2/(6FACT)  ♦... 

BB89 

24 

c 

. 

BBBB 

25 

c 

THE  MANNER  IN  WHICH  THESE  PARTICULAR  FUNCTIONS  ARISE  IN  THE 

BBBB 

26' 

c 

THEORY  COMES  FROM  INTEGRATIONS  OVER  VA=ICUS  pRQCUCTS  OF  CAI(X) 

BBBB 

27 

c 

AND  SAI(X) . IN  PARTICULAR,  FOR  X POSITIVE, 

BBBB 

28 

c 

BBBB 

29 

c 

Rl*  (2/Y) (INTEGRAL  ON  Y FROM  0 TO  Y OF  (COSH (Y) )**2) 

Beee  . 

30 

c 

BBBB 

31 

c 

R2*  (2/Y»»3l (INTEGRAL  ON  Y FROM  0 TO  Y OF  (SINH (Y) ) **2) 

BBBB 

32 

c 

BBBB 

33 

c 

R3*  (4/Y»*2) (INTEGRAL  ON  Y FROM  0 TO  Y OF  SINK (Y> *COSH (Y) ) 

9B99 

34 

c 

BBBB 

35 

c 

. • 

WITH  Y*saRT(X).  THE  CORRESPONDING  FORMULAS  FOR  X NEGATIVE  CAN 

B999 

36 

c 

BE  OBTAINED  BY  REPLACING  SINH  AND  COSH  BY  SIN  ANC  COS.  RES°EC- 

BP99 

37 

c 

TIVELY,  AND  eY  REINTERPRETING  Y AS  SCRT(-X). 

8989 

38 

c 

BBBB 

39 

c 

LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C2Z-6515-4) 

BBBB 

48 

c 

AUTHOR 

- A. 0. PIERCE,  M.I.T.,  JULY, 1968 

BBBB 

41 

c 

BBBB 

42 

c 

——CALLING  SEQUENCE 

BBBB 

43 

c 

BBBB 

44 

c 

SEE 

SUBROUTINE  CLINT 

BBBB 

45 

c 

X* 



BBBB 

46 

c 

CALL  B5S9<X,M,R2,R3> 

80BO 

47 

c 

B399 

48 

c 

EXTERNAL  SUBROUTINES  RcOUIREO— — 

BBSS 

49 

c 

89BB 

50 

c 

CAI,  SAI 

BBBB 

51 

c 

aeoe 

52 

c 

— ARGUMENT  LIST— — 

8893 

53 

c 

BB33 

54 

c 

X 

R*4  NO  IN* 

BBBB 

55 

c 

R1 

R*4  HO  OUT _ . . ... 

BBBB 

56 

c 

R2 

R*4  ND  OUT 

BBSS 

57 

c 

R3 

R*4  NO  OUT  . . ‘ . 

BB89 

58 

c 

BBBB 

59 

c 

NO 

CCMMON  STORAGE  IS  USED  . _ . 

9B9B 

60 

c 

BBBB 

61 

c 

..—program  FOLLOWS  BELOW-  — 

BBOB 

62 

c 

8963 

63 

S*SAI(4.0*X> 

BBBB 

64 

l 


no  oo  no 
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XF(A0S(Xt  .GT.  l.E-2)  GO  TO  3 
COMPUTATION  FOR  SMALL  X 

R2»2. 0/ J.C*t2. 0/15. C4. 0/315 .O>*X»*2*C2.J/9.O»*X»*3/31S.0 
R3*2.0*2.0*X/3.044.0*X»*2/45.0+2.a*X**3/3l5.0 

GO  TO  A ..  .........  

COMPUTATION  FOR  X NOT  NEAR  ZERO  ...  .... 

3 R2*(S-1.0>/X 

R3»tCAI(4.0*X>-1.0)/X  

COMPUTATION  CF  R1  FOR  ARBITRARY  X 
H Risi.O^S 
RETURN 
CM3 


0008 

69 

0630 

66 

8000 

67 

0000 

68 

8009 

69 

8000 

70 

8000 

71 

8089 

72 

8000 

73 

8899 

74 

8800 

75 

8000 

76 

8009 

77 

8089 

78 

8808 

79 

nnnonnnnp pnn oooooonnooonoooooonoo 


-92- 


function  c/ikx) 

CAI  (FUNCTION) 


F/25/68  LAST  CARO  IK  OECX 


—ABSTRACT— 

TITLE  - CAI 

. PROGRAM  TO  EVALUATE  FUNCTION  CAI(X)  FOR  GIVEN  VARIABLE  X. 

IF  X IS  NEGATIVE.  CAI(X)»  COS (SQRT(-X) > . IF  X IS  "OSITIVE. 
CAim*  COSH  (SORT  ( tx ) ) . THE  FUNCTION  IS  ALSO  REPRESENTABLE 
8Y  THE  POWER  SERIES 

CAX(X)*  1 ♦ X/(2FACT)  ♦ X**2/CAFACT»  ♦ X**3/(6FACT)  ♦ 

LANGUAGE  - FORTRAN  IV  (360.  REFERENCE  MANUAL  Ct2-6S15-*»' 

AUTHOR  - A. 0. PIERCE.  H.I.T..  JULY.1S6* 

—CALLING  SEQUENCE— 

CAKANT  P*L  ARGUMENT)  FAY  CE  USEC  IN  ARITHMETIC  EXPRESSIONS 
•—EXTERNAL  SUBROUTINES  REQUIREO-— 


NO  EXTERNAL  SUBROUTINES  ARE  REQUIREO  . . 
-•-•ARGUMENT  LIST---- 


NO  COMMON  STORAGE  IS  USEO 


—PROGRAM.  FOLLOWS  BELOW- 


IF (X  .6E.  0.0)  GO  TO  U 


C X IS  LESS  THAN  0 

10  CAI*COS (SORT (-X) ) 

RETURN  . . . ; 

C 

C X IS  GREATER  OR  EQUAL  TO  0 

11  E«£XP(SQST<xn 

C THE  MYPEPBCLIC  COSINE  IS  CCMPUTEO  

CAI*G. $*(£♦!. /E> 

RETURN  ...  . 

ENO 
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SUBROUTINE  OAOQR (OMEGA, AKX, AKY, C,VX,VY, OAOOM. OAOKX, CAOKY) 

OAOQR  (SUBROUTINE)  MODIFIED  7/11/74  LAST  CARO  IN  DECK  IS  NO. 


-—ABSTRACT---- 


OAOOR 

OAOQR 

OAOOR 

OAOQR 

OAOQR 

OAOQR 


c 

TITLE  - OAOOR 

OAOQR 

7 

c 

THE  FUNCTION  CF  THIS  SUBROUTINE  IS  TO  COMPUTE  THE  COMPONENTS 

OAOQR 

A 

c 

OF  THE  MATRICES  OAOCM, 040KX,  AND  OAOKY  WHICH  “EPRESENF  THE 

OAOQR 

9 

c 

PARTIAL 

DERIVATIVES  OF  THE  MATRIX  1 WHICH  MOULD  BE 

OAOQR 

10 

c 

COMPUTED 

BY  SUBROUTINE  AAAA, 

OAOQR 

11 

c 

OAOOM  IS  THE  PASTIAL  DERIVATIVE  MATRIX  OF  A WRT  OMEGA 

OAOQR 

12 

c 

OAOKX  IS  The  partial  DERIVATIVE  MATPIX  OF  A HRT  AKX 

OAOQR 

13 

c 

OAOKY  IS  THE  PASTIAL  OERIVATIVE  MATRIX  OF  A NRT~ AKY 

OAOQR 

14 

c 

LIKE  A, 

ALL  ARE  2-BY-2  MATRICES. 

OAOQR 

15 

c 

OAOQR 

16 

C LANGUAGE  - FORTRAN  V (UNI  VAC  UG  S, REFERENCE  MANUAL  UC-7556REV.  1) 

OAOQR 

17 

c 

AUTHORS  - ALLAN 

0.  PIERCE,  CHRISTOPHER  KAPO'fR*  G.I.T.*  JULT,  1974 

OAOQR 

14 

c 

OAOQR 

19 

c 

. ——CALLING  SEQUENCE— 

OAOQR 

20 

c 

OAOQR 

21 

c 

SEE 

SUBROUTINE 

COMPK 

OAOQR 

22 

c 

DIMENSION  0(2,2) ,OAOCH<2,2) ,OAQ<Y(2,2) .OAQKYTZ.ZT 

OAOQR 

23 

c 

CALL  0 AOOR( OMEGA , AKX, AKY .C.VX.VY, OAOOM, OAQKX.OAOKYT 

OAOQR 

24 

c 

DACi'jR 

25 

c 

NO 

EXTERNAL  SUBROUTINES  FECUIREO 

OAOQR 

26 

c 

OAOQR 

27 

c 

— — ARGUMENT  LIST——  ..  

OAOQR 

20 

c 

• 

. 

OAOQR 

29 

c 

OMEGA 

R*4  NO  INP  .....  . ... 

OAOQR 

30 

c 

AKX 

R*4  NO  INP 

OAOQR 

31 

c 

AKY 

R*4  NO  INP 

OAOQR 

32 

c 

C 

R*4  NO  INP 

OAOQR 

33 

e 

VX 

R*4  NO  INP  . . 

OAOQR 

34 

c 

vr 

R*4  NO  INP 

OAOQR 

35 

e 

OAOOH 

R*4  H-8Y-2  OUT  * 

OAOQR 

36 

c 

• 

OAOKX 

R*4  2-BY-2  OUT 

OAOQR 

37 

c 

?«<  KY 

R*4  2-OY-2  OUT  

OAOQR 

38 

c 

OAOQR 

39 

c 

NO 

COMMON  STORAGE  USEO  ....  

OACQR 

40 

c 

0A03R 

41 

c 

..—INPUTS—  _ 

OAOQR 

42 

c 

OAOQR 

43 

c 

OMEGA 

•ANGULAR  FREQUENCY  RAO/SEC 

OAOQR 

44 

c 

AKX 

«X  COMPONENT  OF  H0FIZ0NT4L  HAVE  NUMBER  VECTOR  IN  1/KM 

OAOQR 

45 

c 

. *KY  _. 

*Y  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER  VECTOR  IN  1/KM 

OAOQR 

46 

c 

C 

•SOUNO  SFEeC'  IN  KH/SEC 

OAOQR 

47 

c 

VX 

•X  COMPONENT  OF  HINC  VELOCITY  IN  KH/SEC 

OAOQR 

40 

e 

vr 

»Y  COMPONENT  OF  HIND  VELOCITY  IN  KH/SEC 

OAOQR 

49 

e 

• 

OAOQR 

50 

c 

—OUTPUTS 

OAOQR 

51 

c 

OAOQR 

52 

c 

CAOOM(I, J) 

• ( I » J) -TH  ELEMENT  OF  OAOOM  MATRIX 

OAOQR 

53 

c 

OAOKX (I, J) 

=(I,J)-TH  ELEMENT  OF  OAOKX  MATRIX 

OAOQR 

54 

c 

OAOKY (I,UE 

=(I,J)-TH  ELEMENT  OF  OAOKY  MATRIX 

OAOQR 

55 

c 

OAOQR 

56 

c 

— — PROGRAM  FOLLOWS  BELOW— 

OAOQR  ■ 

57 

c 

OAOQR 

58 

c 

OAOOM, OAOKX, OAOKY  ARE  MATRIX  DERIVATIVES  OF  A WITH  RESPECT  TC 

OAOQR 

59 

94 


OMEGA, AKX«4KY«  WHERE  A IS  AS  COMPUTED  BY  AAAA. 

OAOQR 

60 

DIMENSION  0(2,2) ,aaOCM 12,21, CAOKX 12,21, OAOXY (2, 21 

OAOOR 

61 

CSQ*C*C 

OAOQR 

62 

0(1,1)3.0098 

OAOQR 

63 

0(1,2) *-CSQ 

OAOQR 

64 

D(2»l)=(96.04E-6l/CSQ 

OAOQR 

65 

0(2, 2)3-. 0098  . . 

OAOQR 

66 

80M*0HEGA-AKXy VX-AKY*VY 

OAOQR 

67 

8OHS0=eOM**2  . 

OAOQR 

68 

T IS  AKS0/3OHS0 

OAOQR 

69 

OTOOM*-2 .6* (AKX**2*AKY**2)/(80HSC*80H>  

OAOOR 

70 

OTO<X*-CTOOH*VX ♦2.0*AKX/fiOMSO 

OAOQR 

71 

OTOKY»-OTOOM*VY+2.0*AKY/SOMSQ 

OAOQR 

72 

00  90  131,2 

OAOQR 

73 

00  90  jsl,2  

■ OAOQR 

74 

OAO0M(I,J)3Or0C*1*0(I,J) 

OAOOR 

35 

DADKX  tI,J)  = 0T0<X*0(I,J)  ..  

OAOQR 

76 

OAOKY(I,J)30TOKY»0(I»J) 

OAOOR 

77 

THE  ABOVE  ELEMENTS  ARE  CORRECT  EXCEPT  FOR  (2,1)  ELEMENTS 

OAOQR 

78 

XAT«2.0»DOM/CSC 

OAOQR 

79 

XAT  IS  THE  DERIVATIVE  KITH  RESPECT  TO  OMEGA  OF  BOMSO/CSQ 

OAOQR 

80 

OAOOM(2,1)SOAOOM(2.1)-XAT 

OAOQR 

81 

OAOKX (2,1)SDA9KX(2»1)*XAT*VX  - 

OAOQR 

82 

OAOKY(2,1)=OAOKY(2,1MXAT*VY 

OAOOR 

S3 

RETURN 

OAOQR 

84 

ENO 

OAOQR 

85 
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SU9R0UTXNE  OFDCP (OMEGA, AXX. AKY. Gr»RPP»A.C»VX.VY»OFOCM»OFOXX.CFOKV)OFOQR 


OFOOR  (SUBROUTINE)  KCCIFIEO  7/11/7N  LAST  CARO  IN  CECK  IS  NO. 


—ABSTRACT— 


C TITLE  - OFOQR 


C THE  NORHAL  NOC£-  DISPERSION  FUNCTION  COMPUTED  BY  SUBROUTINE 

C NHOFN  IS  CONSIDERED  A FUNCTION  OF  OMEGA. AKX.  AND  AKT. 

C THIS  SU3ROUTINE  COMPUTES.  THE  PARTIAL  DERIVATIVES  OF  FFP  WITH 

C RESPECT  TO  CMSGA.AKX,  AND  AKY  RESPECTIVELY. 

C CFOOH  IS  THE  PARTIAL  DERIVATIVE  OF  FP?  HRT  OMEGA 

C OFOXX  IS  THE  PARTIAL  DERIVATIVE  OF  FP»  WRY  AKX 

C CFOKY  IS  THE  PARTIAL  DERIVATIVE  OF  FPP  HPT  AKY 

C 

C LANGUAGE  - FORTRAN  V (UNIVAC  110 S. REFERENCE  MANUAL  UP-7536  REV.  1) 

C 

C AUTHORS  - A.O.  PIERCE.  CHRISTOPHER  KAPPER.  G.X«T.«  JULY*  19 7 A 
C 

C ——CALLING  SEQUENCE 


SEE  SUBROUTINE  COMP* 

01  MENS  ION  R°°  (2  * 2) t CAOCN (2.2) * CACXX (2.2) «0A0KY(2.2) 
DIMENSION  CROON  (2.2).CROKX(2«2 ) .OROKY (2. 2) ,A(2,2) 

CALL  OFOOR( OMEGA, AKX. ANY. GI.PPP. A. C.VX.VY.OFOOM. OFOXX. OFOKY) 

EXTERNAL  SUBROUTINES  REQUIRED— 

OAOQR.ORCQR.  (ORCQR  CALLS  OHOQR)  ' 

—ARGUMENT  LIST—. 


c 

OMEGA 

R*N 

NO 

INP 

c 

AKX 

R*N 

NO 

XNP 

c 

axt 

R*N 

NO 

INP 

c 

61 

R*fc 

NO 

INP 

c 

c 

R*N 

MO 

INP 

c ' 

VX 

R*N 

NO 

INP 

c 

VT 

R«N 

NO 

INP 

c 

A 

R*N 

z-er-2 

INP 

c 

RPP 

R*N 

2-8Y-2 

IN» 

c 

OFOOM 

* R*N 

NO 

OUT 

c 

OFOXX 

K*N  . 

NO 

OUT 

c 

OFOKV 

R*N 

. NO 

OUT 

c 

. 

NO  COMMON  STORAGE  USEO 


OFOQP 

OFOOR 

OFOQR 

OFOQR 

OFOQR 

OFOOR 

OFCOR 

OFOOR 


OMEGA 

AKX 

AKY 

61  ... 

C 

VX  . 

VY 

RPPII.J) 


A(X.J) 


—INPUTS— 

•ANGULAR  FREQUENCY  RAO/SEC 


•PAPAMETER  FOR  DETERMINING  GU  IN  UPPER  HALFSPACE  OFOOR 

•SOUND  SPEED  IN  KM/SEC  OFOOR 

.•X  -.CMPCNENT  OF  WINC  VELOCITY  IN  KH/SEC ...  OFOOR 

•Y  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC  OFOQR 

•<I,J)-TW  ELEMENT  OF  MATRIX  RPP  CONNECTING  OFOOR 

SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS  AT  THE  BOTTOM  OF  OFOOR 
THE  UPPER  HALFSFACE  TO  SOLUTIONS  AT  THE  GROUNO.  OFOQR 

•(I.J)-TH  ELEMENT  OF- MATRIX  A OFOQR 

. OFOQR 

— --OUTPUTS—  OFOQR 

. OFOQR 

•PARTIAL  DERIVATIVE  OF  FFP  WRT  OMEGA  OFOQR 


OFOQR 

10 

OFOQR 

11 

OFOQR 

12 

OFOQR 

13 

OFOQR 

IN 

OFOQR 

15 

OFOQR 

16 

OFOQR 

17 

OFOQR 

IS 

OFOQR 

19 

OFOQR 

20 

OFOQR 

21 

OFOQR 

22 

OFCQR 

23 

OFOQR 

2N 

OFOQR 

25 

OFOQR 

26 

OFOQR 

27 

OFOCR 

28 

OFOQR 

29 

OFOQP 

30 

OFOQR  . 

31 

OFOQR 

32 

OFOQR 

33 

OFOQR 

3N 

OFOQR 

35 

OFOQR 

36 

OFOQR 

37 

OFOQR 

38 

OFOQR 

39 

OFOQR 

NO 

OFOQR 

N1 

OFOQR 

N2 

OFOQR 

N3 

OFOQR 

NN 

OFOQR 

N5 

OFOQR 

N6 

OFOQR 

N7 

OFOQR 

N8 

OF.OQR 

N9 

OFOQR 

50 

/K  OFOOR 

51 

/K  OFOQR 

52 

OFCQR 

53 

OFOOR 

5N 

OFOQR 

55 

OFOQR 

56 

OFOQR 

57 

OF  OFOQR 

58 

OFOQR 

59 

OFOQR 

60 

OFOQR 

61 

OFOQR 

62 

OFOOR 

63 

OFOQR 

6N 

i 


uuouu 
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e 


OFOKX  *PARTZAL  CERIVATIVE  OF  FPP  WRT  AKX 

' OFOKY  »PARTIAL  OERIVATIVE  OF  FPP  WRT  AKY 

....PROGRAM  follows  below— 

OIMENSXON  A(2*2»  .OAOOM2«2>  • OACKX  (2 «2>  »OAOKY <2«2» 

OXMENSXOK  RPP<2»2)»0A0CM (2.2) tOROKX (2.2 I »CR0<Y(2.21 
CU«CI 

CALL  OAOQRfONEGA  «AKX* AKY.C.VX. VY»  DAOOM.OAOKX.OAOKY) 

OGOON* (2  «G*A {1»1)*0A00M(1«1I >Afl«2)#OAOOMC2»lMAC2«l>*OAOOH(l»2l 

^OGOKX**C2»0*A(l»ll*OAOKX(l«H  ♦Atl«2)*CA0<X(2»ll*A (2.1l*OAQKXtl«21 

*OGOKY**(2«0*A(1«1)*OAOKY lit  11 ♦A<1»2J  *CAOKYt 2*11 ♦ACZ til *0A0KYC1*2I 
t'f2«0*GU) 

CALL  0R3GR ( ONEGA  « AKX  *AKf  *RPP« A*  CROON .ORORXtORDKYl 
f is  Rtl«l)*A(l«2)-PC1.2>MGlJM(t.l>) 

OFOO*1»CROOM(i«l I •A(1«2)*CPOON(1»2>* (GU+A  Cl«lll ♦RPPCXtl>*CAOOP(X« 

. l-RPP(l,2l*<OGOOM*OAOOMCl.in  

' OFOXX«OROKXCl»tl#A(lt2>*CROKX <!•?.••  TGU*Aft«lM-*RPP<l»11*OAQKX<l» 
l-RPPU.2)*<OGCKX*OAOKX(l.tn  „ 

DFOKY*QROKY ti.l  > #A  < 1*2)  “CRQKY  (1*2)  • <GU*A  (1»1H*RFP  tl»t>  OAOKYClt 
X-RPP(l«2)*(OGOKY«OAOKY(ltl)) 

RETURN 
EMO 


OFOCR 

65 

OFOQR 

66 

OFOQR 

67 

OFOCR 

68 

OFOQR 

69 

OFOQR 

70 

OFOQR 

71 

OFOQR 

72 

OFOQR 

73 

» OFOQR 

7*. 

OFOQR 

75 

) OFOQR 

76 

OFOQR 

77 

) OFOCR 

70 

OFOQR 

79 

OFOCR 

ao 

OFOQR 

81 

2 OFOCR 

82 

OFOQR 

83 

2 OFOCR 

84 

OFOQR 

85 

2JOFOCR 

86 

OFOQR 

87 

OFOQR 

88 

OFOQR 

89 

/ 


ooononnnnnnoonnonooonnonnnononryoonnnnnononnnnnnnoononnnononnnoo 
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SUBROUriKC  OMOQR(OHEGA,AKX , AKY.C. VX.VY.H. AtSK.ONOOn.GMOKX.QMCKT) 
OHOCR  C SUBROUTINE)  MCOIFIEO  7/11/74  LAST  CARO  IN  DECK  IS  NO. 


-•—ABSTRACT—— 

TITLE  - ONOQR 

THE  FUNCTION  OF  THIS  SU9P0UTINE  IS  TO  COMPUTE  THE  COMPONENTS 
Of  THE  MATRICES  CKOCP.OMDKX,  ANO  CMOKV  WHICH  REPRESENT  THE 
PARTIAL  DERIVATIVES  OF  THE  EM  MATRIX  WHICH  WOULO  QE 
COMPUTEO  BY  SUBROUTINE  MMHH. 

OHOON  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  EM  WRT  OMEGA 

. ONOKX  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  EM  WRT  AKX 

OHO<Y  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  EM  WRT  ART 

MATRIX  EM  IS  ALSO  CCMPUTED  IN  THIS  SUBROUTINE.  ' 

LANGUAGE  - FORTRAN  V (UNIVAC  1109.FEFERENECE  MANUAL  UP-7536  REV. II 

AUTHORS  - ALLAN  0 FIERCE .CHRISTOPHER  RAPPER,  G.I.T.,  JULY,  1574 

—CALLING  SEQUENCE- 

SEE  SUBROUTINE  COMPR 

DIMENSION  A (2,2), EH (2. 2) .QMOX (2,2) OMOOM (2,2) ,OHOKX(2,2) 
DIMENSION  AMOK  Y (2,2), CACQM(2,2 ) .CAQKX(2<2), QAQKY (2,2) 

CALL  OMOCR( OMEGA, AKX ,AKY«C>VX.VY ,H, A.EM.OMDOHtDMnKX.OMOKY) 


—EXTERNAL  SUBROUTINES  REQUIRES— 


• OAOQR.CAI.SAI 


—ARGUMENT  LIST 


OMEGA 

R*4 

NO 

IN# 

AKX 

R"4 

NO 

INP  . . 

AKY 

R*4 

NO 

INP 

• 

C 

R*4 

NO 

INF 



VX 

R*4 

NO 

INP 

VY 

, R*4 

NO 

XNP 

H 

R*4 

NO 

INP 

A 

R*4 

2-BY-2 

INP 

CM 

R*4 

2-8Y-2 

OUT 

OMQOH 

R#4 

2-8Y-2 

OUT...... 

ONOKX 

R»4 

2-BY-2 

OUT 

ONOKY 

R*4 

2-ev-2 

OUT 

. „ „ „ . ........ 

NO  CCMMON  STORAGE  USEO 


ONEGA 

AKX 

ary 

c 

vx 

VY 

H 

A ( I, J) 


— INPUTS  — , 


•ANGULAR  FREQUENCY  pao/sec 

•X  COMPONENT  OF  HOPIIONTAL  WAVE  NUMBER  VECTOR  IN  1/KN 

*Y  COMPONENT  OF. HORIZONTAL  WAVE  NUMBER  VECTOR  IN  1/KM 

•SOUNO  SPEEC  IN  KM/SEC 

»X  COMPONENT  OF  WIND  VELOCITY  IN  KM/SEC 

»Y  COMPONENT  OP  WINO  VELOCITY  IN  KM/SEC 

•THICKNESS  IN  KM  OF  LAVER 

*( I » J)-TH  ELCMENT  OP  MATRIX  A FOR  UHS 

—OUTPUTS  — 

•2-BY-2  TRANSFER  MATRIX  WHICH  RELATES  THE  SOLUTIONS 
OF  THE  KESICUAl  EOUATIONS  AT  THE  TOP  OF  A LAYER 
TO  THOSE  AT  THE  BOTTOM  OF  THE  LAYER. 


OMOOR 

QHOQR 

OMOQR 

ONOQR 

ONOQR 

ONOQR 

ONQQR 

ONOQR 

OMOCR 

ONOQR 

ONOQR 

OMOQR 

O.SOOR 

OHOCR 

OMOCR 

OMOCR 

OMOCR 

OHOOR 

OHOCR 

ONCCR 

OMOQR 

OMOQR 

OMOQR 

OMOCR 

OMOCR 

OMOQR 

OMOQR 

OHOCR 

OMOQR 

ONOQR 

OMOQR 

OMOCR 

OMOCR 

OMOQR 

OMOQR 

OMOQR 

ONOQR 

OMOQR 

OMOQR 

ONOQR 

OHOOR 

OMOCR 

OMOCR 

OMOQR 

OMOQR 

OHOOR 

OMOCR 

OMOQR 

OMOQR 

OMOQR 

OHOCR 

OMOCK 

OMOCR 

OMOCR 

OHOOR 

OMOCR 

OMOQR 

OMOQR 

OMOQR 

OMOQR 

OMOCR 

OMOQR 

OMOQR 

OMOQR 


nononn 


' •*  * r'  ■f.'T  - 


-98- 


OHOOMd,  J)  »<I,J)-TH  ELEMENT  OF  MATRIX  0M00M 

OMOQR 

65 

CM0KXd«J)  *d«J»-TH  element  of  matrix  omokx 

OMOQR 

66 

OHOKVd.JI  =<I,J»-TM  ELEHENT  OF  MATRIX  OMOKY' 

OMOQR 

67 

OMOQR 

68 

-PROGRAM  FOLLOWS  BELOW—— 

OMOQR 

69 

* 

OMOQR 

70 

DIMENSION  EM<2,2».0H0x<2,2>,0MCCM{2,2),CM0KX{2,2»,0H0KY<2,2> 

OMOQR 

71 

DIMENSION  A<2,2» ,OACOM < 2 ,2> , DAOKX <2 .2) ,0A0KY<2,2> 

OMOQR 

72 

CALL  OAOQfi(OMEGA»AKX» AKY , C, VX, VY,OAOOH, QA0KX»0A0KY) 

OMOQR 

73 

HSQ=H*H 

OMOQR 

74 

X*fATl<l)**2tA(l<2)*A<2<H)*HSQ 

OMOQR 

75 

CA*CAI(Xt 

OMOQR 

76 

SAsSAKX)  ......  ... 

OMOQR 

77 

■ 

OCAIX»0.5*SA 

OMOQR 

78 

Y»A8S(XJ 

OMOOR 

79 

IFCY-1.0E-2)  3.3,4  ' "•  •' 

OMOQR 

80 

3 

0SAIXal.0/o.G*X/60.0*X**2/1680.0+X**3/'J0720.0 

OMOOR 

81 

GO  TO  5 

OMOQR 

82 

4 

OSAIX=0.5*(CA-SA»/X  ...J.  _ .. 

OMOQR 

83 

5 

GEM»H*OSAIX 

OMOQR 

84 

00  20  m<2 

OMOQR 

85 

00  20  J=l«2 

OMOQR 

86 

20 

OMOXd.J)=-GEM*Ad,J) 

OMOQR 

87 

00  30  1*1,2 

OMOQR 

88 

30 

OHOX(I<H=QMOX<I,I)>OCAIX 

OMOQR 

89 

0X00M=(2,G*A( 1,1)*0A00M(1«1I+Ad<2) *0A00M  <2,H»A(2,1) *OACOM(lt 2) ) 

OMOQR 

90 

1HSQ 

OMOQR 

91 

OXOKX* (2,  0*A  d,l)*0A0KX  d*l) +A (1,2) *0A0KX ( 2«1)+A (2,1) *DA0KX  <1, 2) ) 

OMOQR 

92 

1HSQ 

OMOQR 

93 

OXOKY*(2.a*A(l,l)*OAOKY(l,l)*A(1.2>*OAOKY<2.l)*A(2,l)»OAOKYd,2>> 

omdqr 

94 

IMS'!  . .._. 

OMOQR 

95 

T«M*SA 

OMOQR 

96 

00  90  1*1,2  

OMOQR 

97 

00  90  J*l,2 

OMOQR 

98 

OHOOMd, J»=QM0X  CI,J)»OXQOM-T»OAOOM(I,J)  . 

OMOQR 

99 

OMOKXd,J)=OMaxd.J)*CXCKX-T*OACKX(I,J> 

OMOQR 

100 

OHOKYd.J>  = OMOXd,JI*OXCKY-T*OAOKY(I,J> 

OMOOR 

1C1 

90 

EM(I,J>=-T*Ad,J> 

OMOOR 

102 

00  190  1=1,2 

OMOQR 

103 

190 

EM(I,I)=EM(I.I)+CA 

OMOQR 

104 

RETURN 

OMOOR 

105 

END 

OMOQR 

106 

uauuuuuuuuuuouuuououuuuuuuuuuauuuouuuuuuouououuuuuuouuuuuuuuuuu 
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suoroutine  droop Iomega, akx.aky.rpp, a, oroom.orqkx.opokt) 

OROQR  (SUBROUTINE)  MODIFIED  7/11/74  LAST  CARO  IN  OECK  IS  NO. 


——ABSTRACT — — 

TITLE  - 0R00R 

THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  COMPUTE  THE  COMPONENTS 
OF  THE  MATRICES  CROOK. OROKX.  AND  OROKY  WHICH  REPRESENT  THE 
PARTIAL  DERIVATIVES  CP  THE  RPP  MATRIX  WHICH  WOULO  BE 
CQHFUTEO  BY  SUBROUTINE  PPRR. 

CRDOM  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  RPP  WRT  OMEGA 

OROKX  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  RPP  WRT  AKX 

OPOKY  IS  THE  PARTIAL  DERIVATIVE  MATRIX  OF  RPP  WRT  AKT 

LANGUAGE  • FORTRAN  V (UNIVAC  1104.  REFERENCE  MANUAL  IJP-7536  REV.  1) 

AUTHORS  - A.O.  PIERCE.  CHRISTOPHER  KAP*ER»  G.I.T.,  JULY*.  1974 

—CALLING  SEOUENCE—  — 

SEE  SUBROUTINE  COMFK 

01 MENS ION  CIIIOOJ.VXIIICQ) «VYI (100) .HI(IQO) 

OIMENSION  RP° 1 2 » 2) ,AI2«2)«C?OQK(2.2) »DROKX (2.2) .OROKY (2.2) 
OIMENS ION  EM(2.2).QKGOi*(c«?) .CMOKX ( III) .OMOKY (2.2) 

OIMENSION  !IPP(2.2),OPP(2*2).AINT(2,2) 

COMMON  IMAX.CI. VXI.VYI.HI 

. . . CALL  OROGP.IOHCGA.AKX. AKY.RPP.A.OPOOM.OROKX.OPOKY) 

...  . —EXTERNAL  SUBROUTINES  REOUIPEO— — . ... 

« 

OMOQR  IOMOQR  CALLS  CACCR.CAI.SAI)  ;.. . . 

—ARGUMENT  LIST——  ‘ 


OMEGA 

R*4 

NO 

INP 

AKX 

R*4 

NC 

INP 

akt 

R*4 

NO 

IN® 

p.pp 

R*4 

2-BY-2 

INP 

A 

R*4 

Z-BY-2 

INP 

OROOH 

R*4 

2-8Y-2 

OUT 

OROKX 

R*4 

2-BY-2 

OUT 

OROKY 

R*4 

2-BY-Z 

OUT 

COMMON  STORAGE  USEO 

COMMON  IMAX.CI. VXI.VYI.HI 


1HAX 

1*4 

NO 

INP 

CZ 

R*4 

IOC 

INP 

. VXI 

R*  4 

100 

INP 

VTI 

R*4 

100 

INP 

HI 

. R*<t 

100 

INP 

OMEGA 

AKX 

AKY 

RP» 


—inputs . 

•ANGULAR  FPECUENCY  RAD/SEC 

*X  COMPONENT  OF  HORIZONTAL  WAVE  NUMBER  VECTOR  IN 
*Y  COMPONENT  OF  HORIZONTAL  WAVE  NIJHBcR  VECTOR  IN 
•2-BY-2  TRANSFER  MATRIX  WHICH  CONNECTS  SOLUTIONS 
OF  THE  PESICUAL  EOUATIONS  AT  THE  BOTTOM  OF  THE 
UPPER  HALFSPACE  TO  SOLUTIONS  AT  THE  GROUNO. 
•MATRIX  A OF  COEFFICENTS 

—OUTPUTS— 


1/KH 

1/KH 


OROQR 

1 

ORCDR 

z 

OROCn' 

3 

OROOR 

4 

OROCR 

5 

0R03P 

6 

OROQP 

7 

ORDCP 

8 

OROQR 

9 

OROQR 

10 

OROQR 

11 

OROQR 

12 

OROQR 

13 

OROCR 

14 

OROQR 

15 

OP.OQR 

16 

OROCR 

17 

OROQP. 

18 

OROQR 

19 

OROQR 

20 

OROQR 

21 

OROQR 

22 

OROQR 

23 

OP.OQR 

24 

OROQR 

25 

OROQR 

26 

OROQR 

27 

OROQR 

20 

OROQR 

29 

OROQR 

30 

OROQR 

31 

OROQR 

32 

OROQR 

33 

OROQR 

34 

OROQR 

35 

OROCR 

36 

OROQR 

37 

ORCCR 

20 

OROQR 

39 

OROQR  ' 

40 

OROQR 

41 

OROQR 

42 

OROCR 

4.1 

OROQR 

44 

OROCR 

45 

OROOR 

46 

OROQR 

47 

OROCR 

48 

OROCR 

49 

OROQR 

50 

OROQR 

51 

OROOR 

52 

OROQR 

53 

OROCR 

54 

OROQP 

55 

ORCQo 

56 

OROQR 

57 

OROQR 

5d 

OPOQR 

59 

OROQR 

60 

OROQR 

61 

OROQR 

62 

OPOQR 

63 

OROOR 

64 

uouuuu 


-ipo- 


0R0dM(I,J>  =(I,J)»TH  ELEMENT  OF  MATRIX  OROOh 
OROKX (I,  J)  »<I,J>-TH  ELEMENT  OF  MATRIX  OROKX 
OROKY(I.J)  *(I,J»-TH  ELEMENT  OF  MATRIX  OROKY  - 

——PROGRAM  FOLLOWS  BELLOW— 

OIMENSION  CII100>,VXI<100» ,VYI (ICO) ,MI(100» 

OIMENSION  R®P<2,2>,A(2,2)«C=OOM(2,2>  .OROKX <2, 2), OROKY <2, 2) 
OIMENSION  SM(2.2».0MC0X(2,2J , DMOKX (2,2) ,OHOKY (2»2> 

DIMENSION'  U=P(2.’J,OPF(2,2>,AINT(2,2J 
COMMON  I MAX <CI«VXI,VYI«HI 
00  10  1=1,2 
00  10  J=l,2 
OROOMd,  J)  =8,0 

OROKX (I, J)=0.0  . .. 

10  OROKY  (I, J1=0.0 

op“{i,i)=i.o 

UP"C1»2>  =0,0 

UP"(2.n=e.o  _■  . 

l)PP(2.2>=1.0 

DO  15  1 = 1,2  . . _ 

00  15  J=i«2 

15  OP°(I« J) =R“®(I» J)  

00  100  J=l, IMAX 

I»IMAX*1-J  _ ...  ..  . 

C»CI(t) 

VX=VXI(I» 

VY«VYI(I> 

H*HI (II 

CALL  QMOCRt  OMEGA ,AKX,/’.KY.C<VX,VY«H«A,EM,OMOOM, OMCKX.OHQKY) 

. MULTIPLY  OP"  TIMES  THE  INVERSE  0=  EM 

0XNTCl»l)*CP®(l»l)*EM(2«2J  -OPP  Cl .2 J •EM(2,i) 

AINT(1»2) s-*OP°C 1 *1)*EM(1,2)*0OSC1,2)*EM(1,1>  

AINT(2»1)=QP°<«»1)*EM(2»2) -no=C2,2» »EMC 2 ,1) 
AINT{2,2)=-0PPC2,1)*SMC1,2)»0PCC2,2)*EMC1,1)  .. 

00  20  11=1,2 

00  20  JJ=1,2  . 

20  0P°CII,4J>*AIHTCn,JJl 

00  30  11=1,2  ..  . _ 

00  30  JJ=1,2 

00  30  KK=i»2  

00  30  LL=1,2 

OROOM(ir.JJ)=CPOCMCII,JJ)  ♦OPPCII,KK)*OMOO»‘fKK,LU»UFPCLL,JJ> 
OROKX  < II  » JJ)  =OROKX  ( II  » JJI  *0°P  ( II«K<  > *OMOKX  <KK*LL)  *tlPP  (LL»  JJ> 
30  OROKY  (II.JJI =ORCKYCII, JJ> ♦OPPC II ,KK) •OMOKY ( KK,LL) *UPP (LL, JJ> 
00  40  11=1,2 
00  43  JJ=1,2 

40  AINTCII.JJJ =EM(IX,ll*UPP(t,JJMEM(II,2»*UPP(2,JJ> 

00  50  11  = 1,2  . . 

00  50  JJ=1,2 

50  UP0  ( II , JJI  = AINT  (II,  JJl  .... 

100  CONTINUE 
RETURN 
. END 


OROCR 

65 

OROOR 

66 

OROOR 

67 

OROOR 

60 

OROOR 

69 

OROCR 

70 

OPCCR 

71 

OROOR 

72 

OROCR 

73 

OROCR 

74 

OROCR 

* 75 

ORCOR 

76 

OROOR 

77 

OROCR 

70 

OROCR 

79 

OROCR 

00 

OROOR 

01  ' 

OROOR 

82 

OROOR 

03 

OROCR 

■ 04 

OROCR 

05 

OROOR 

06 

OROCR 

07 

OROCR 

08 

OROCR 

09 

OROCR 

90 

OROOR 

91 

OROCR 

. 92 

OROCR 

. 93 

DROCR 

94 

OROOR 

. '.  95 

OROOR 

96 

OROCR 

97 

OROCR 

• 90 

OROflP 

99 

OROOR 

ICO 

OROOR 

101 

OROOR 

1C2 

OROOR 

103 

OROCR 

104 

OROOR 

105 

OROCR 

1C6 

OROOR 

107 

OROOR 

100 

OROCR 

109 

OROOR 

110 

OROOR 

111  . 

OROCR 

112 

OROCR 

113. 

OROOR 

114 

OROOR 

115. 

OROOR 

116 

OROCR 

117  . 

OROCR 

110 
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SU3R0UTINE  ELINT (ONEGA, 4KX,AKY»C.VX,Vr,H, FIN, F2H,A1,A2,AINT> 

ELINT 

1 

c 

ELINT  (SUBROUTINE)  7/25/68  LAST  CARO  IN  OECK 

IS 

ELINT 

2 

c 

ELINT 

3 

c 

——ABSTRACT—— 

ELINT 

6 

c 

CLINT 

5 

c 

TITLE  - ELINT 

ELINT 

6 

c 

THIS  SUBROUTINE  COMPUTES  THE  INTEGRAL 

CLINT 

7 

c 

EL.INT 

8 

c 

AINT  « INTEGRAL  OVER  Z FROM  0 TO  M OF 

ELINT 

9 

c 

CLINT 

10 

c 

(Ai’FKZ)  ♦ A2*F2(Zl>—2 

(1 

ELINT 

11 

c 

ELINT 

12 

c 

THE  FUNCTIONS  F1(ZI  ANO  F2IZ)  ARE  THE  SOLUTIONS  OF  THE  COUPLED 

ELINT 

13 

c 

ORDINARY  DIFFERENTIAL  EQUATIONS 

ELINT 

14 

c 

ELINT 

15 

c 

OF1/OZ  * AU*F1  ♦ A12*F2 

(2 

ELINT 

16 

c 

OF2/OZ  * A21*Fi  ♦ A22*F2 

(2 

ELINT 

17 

c 

ELINT 

18 

c 

WHERE  THE  ELEMENTS  CF  THE  MATRIX  A ARE  INDEPENDENT  OF  Z. 

ELINT 

19 

c 

FOR  GIVEN  SOUND  SFEEQ  C,  WIND  VELOCITY  COMPONENTS  VX  AND  VY 

f 

ELINT 

20 

c 

ANGULAR  FREQUENCY  OMEGA,  AMD  HAVE  NUM3ER  COMPONENTS  AKX  ANO 

AK 

ELINT 

21 

c 

THE  A (I, J)  ARE  CONFUTED  DY  CALLING  AAAA.  THE  SOLUTION  TO  THE 

ELINT 

22 

c 

DIFFERENTIAL  EQUATIONS  IS  FIXED  DY  SPECIFICATION  OF  F\  AND 

F2 

ELINT 

23 

c 

AT  Z*H. 

ELINT 

24 

5 

* 

CLINT 

25 

c 

PROGRAM  NOTES 

ELINT 

26 

c 

CLINT 

27 

c 

THE  GENERAL  SCLUTION  OF  EONS.  (21  IS 

ELINT 

28 

c 

ELINT 

29 

c 

Fl(ZJ  « CAI(X)*F1(H)-<M-Z»»SAI(X)MAU*F1(H»  + AL2*F2<H 

ELINT 

30 

c 

F2(Z)  a CAI(X)»F?{H)-(H-Z>*SAI(X)»(A21*F1(H»*A2**F2{H 

ELINT 

31 

c 

• ’ 

ELINT 

32 

c 

WITH  X«(Atl**2»A12*A2i)*(H-Z)**2  SINCE  «22*-AU.  HE 

LET 

ELINT 

33 

c 

-s 

ELINT 

34 

c 

R1  * (INTEGRAL  OF  (CAI f X > >**2) • (2/H> 

ELINT 

35 

c 

R2  * (INTEGRAL  OF  ( (H-?) *SAI  (X) >**2> * (2/H—3) 

ELINT 

36 

c. 

. R3  » (INTEGRAL  OF  ( (H-Z) *SAI (X) *C*I (X) ) ) * (4/H**2) 

ELINT 

37 

c 

• 

ELINT 

38 

c 

WHERE  IN  EACH  CASE  THE  INTEGRATION  IS  OVER  Z FROM  0 TO  H 

ELINT 

39 

c 

THE  QUANTITIES  Ri.R2,R3  ARE  CONFUTEO  OV  CALLING  6388. 

ELINT 

40 

c 

. JHEN 

ELINT 

41 

c 

ELINT 

42 

c 

AINTa(H/2)*(PPI)«*2*Rl*(H**3/2)*(FP2*»*2*R2 

ELINT 

43 

c 

-(H**2/2I*(FPU»(FP2»»R3 

ELINT 

44 

c 

ELINT 

45 

c 

WITH 

ELINT 

46 

c 

...  ...  FP1*  Ai«Fi(H)*A2*F2(H> 

ELINT 

47 

c 

FP2«  Al*(AU*Fl(Hl»At2«F2(H>  > *A2* (A2t*Fi (HI 4A22*F2 (H> 

ELINT 

48 

c 

• 

ELINT 

49 

c 

THE  LATTER  THC  QUANTITIES  REPRESENT  THE  COEFFICIENTS 

OF 

ELINT 

50 

c 

. CAI (X)  ANO  (H-Z)*SAI(X>  IN  Al*Fl*A2*F2. 

ELINT 

51 

c 

ELINT 

52 

C LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C22-6515-4J 

ELINT 

53 

c 

ELINT 

54 

c 

AUTHOR  - A. 0. PIERCE,  M.I.T..  JULY, 1968 

ELINT 

55 

c 

ELINT 

56 

c 

—CALLING  SEQUENCE 

CLINT 

57 

c 

* 

CLINT 

58 

c 

SEE  SUBROUTINE  TCTINT 

ELINT 

59 

c 

NO  OIMENSION  STATEMENTS  PEQUIREO 

ELINT 

60 

c 

CALL  ELINT(0MEGA,AXX,AXY,C,VX,VY,H,F1H,F2H,A1,A2,AINT) 

ELINT 

61 

c 

ELINT 

62 

c 

EXTERNAL  SUBROUTINES  REQUIRED 

ELINT 

63 

c 

ELINT 

64 

- .?'/•*«  *>{  .'  - ■'J'  rj  r^f  s 


-102- 


c 

■ aaa**  eeoo 

ELINT 

65 

c 

ELINt 

66 

c 

ARGUMENT  LIST  — 

ELINT 

67 

c 

ELINT 

68 

c 

OMEGA 

R*4  MO  IN° 

ELINT 

69 

c 

AKX 

R*4  NO  IMP 

ELINT 

70 

c 

AKY 

R’4  MO  IN° 

ELINT 

71 

c 

C 

R*4  NO  IMP 

ELINT 

72 

c 

VX 

R*4  NO  INP 

ELINT 

73 

c 

VY 

R*4  NO  IN® 

ELINT 

74 

c 

H 

R*4  NO  IN® 

ELINT 

75 

c 

FIN 

R*4  NO  INP 

ELINT 

76 

c 

FZH 

R*4  NO  IN®  

ELINT 

77 

c 

At 

R*4  NO  INP 

ELINT 

78 

c 

AZ 

R*4  NG  INP 

ELINT 

79 

c 

AW 

R*4  NO  CUT 

ELINT 

80 

c 

ELINT 

81 

c 

NO  COMMON  STORAGE  USED 

ELINT 

82 

e 

* 

.ELINT 

83 

c 

——INPUTS 

ELINT 

86 

c 

ELINT 

85 

c 

ONEGA 

’ANGULAR  FREQUENCY  IN  RAOIANS/SEC 

ELINT 

86 

c 

AKX 

*X  COMPONENT  OF  WAVE  NUMBER  VECTOR  IN  KM**C-1) 

ELINT 

87 

c 

AKY 

»Y  CCMFONENT  OF  WAVE  NUMBER  VECTOR  IK  KM**(-1) 

ELINT 

88 

e 

C 

’SOUND  SPEED  IN  KM/SEC 

ELINT 

89 

c 

VX 

*X  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC 

CLINT 

90 

c 

vr 

’Y  COMPONENT  OF  WIND  VELOCITY  IN  KM/SEC 

ELINT 

91 

c 

H 

’INTEGRATION  INTERVAL  (LAYER  THICKNESS)  IN  KI* 

ELINT 

93 

e 

FIN 

’VALUE  OF  Fl <Z)  AT  UPPER  LIMIT  OF  INTEGRAL 

ELINT 

93 

c 

FZH 

’VALUE  OF  FZ  <Z>  AT  UF°ER  LIMIT  OF  INTEGRAL 

ELINT 

94 

c 

- u 

’COEFFICIENT  OF  FKZ)  fl  INTEGRAND 

ELINT 

95 

c 

AZ 

’COEFFICIENT  OF  ®ZtZ>  IN  INTEGRAND 

ELINT 

96 

c 

ELINT 

97 

c 

——OUTPUTS 

ELINT 

98 

c 

ELINT 

99 

c 

" AINT 

’INTEGRAL  OVER  HEIGHT  WITH  RANGE  H OF  THE  QUANTITY 

ELINT 

ICO 

e 

CAt*Fl<Z)*AZ»FZ(Z))**Z  WHERE  Fl(Z)  AMO  FZ(Z>  ARE 

ELIN.T 

101 

c 

ECUAL  ' j F1H  ANO  FZH,  RESPECTIVELY.  AT  THE  UPPER 

ELINT 

1CZ 

c 

LIMIT  ANO  SATISFY  THE  RESIDUAL  DIFFERENTIAL  EQUATION 

ELINT 

103 

c 

ELINT 

104 

c 

——PROGRAM  FOLLOWS  BELOW——. 

ELINT 

105 

c 

ELINT 

106 

0IMEN5I0N"  A (Z*Z)  ... 

ELINT 

107 

CALL  AAAA(OMEGA«AKX« AKY*C* VX.VY.A) 

CLINT 

108 

c 

, 

ELINT 

109 

c 

COMPUTATION  CF 

FP1  AND  FPZ 

CLINT 

110 

. FP1»A1*F1H+A2*F2H 

ELINT 

111 

PPZ’AIMAU 

,1I*F1H*A(1,ZI*FZH)+AZ*(A(2»1)’F1H+A(Z,Z)*FZH) 

ELINT 

HZ 

c 

ELINT 

113 

c 

COMPUTATION  CF 

COEFFICIENTS  CF  Rl,R2,R3 

ELINT 

114 

Si’0.5»H»FPl**2 

ELINT 

115 

$Z’0.5*(H**3)  »FP3*»2 

ELINT 

116 

S3*-0.5*(H* 

*Z)*FP1*FPZ  . .. 

CLINT 

117 

c 

ELINT 

118 

c 

COMPUTATION  CF 

Rl.RZ >.  3 

CLINT 

119 

X’tAU,!)** 

2*A(1,2)*A(2*1))*H**2 

ELINT 

1Z0 

CALL  8080 (X 

,R1.RZ,R3) 

ELINT 

121 

c 

ELINT 

1ZZ 

c 

COMPUTATION  CF 

AINT 

CLINT 

123 

AINT’S1*R1«'S2*R2»S3*R3 

ELINT 

124 

RETURN 

ELINT 

125 

END 

ELINT 

126 

/ 


no  ooooooooooooooooooooonooonooooooooononoooooo on  n n oonnonoooooo 
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FUNCTION  FNMOOl(V) 

FNMOOl  (FUNCTION)  . - 6/19/68  (.AST  CARO  IN  CSC*  IS 


— —ABSTRACT 

TITLE  - FNM001 

EVALUATATION  CF  NORMAL  MODE  DISPERSION  FUNCTION  AS  FUNCTION  OF 
PHASE  VELOCITY  V 

THE  NORMAL  HCCE  OIS3ERSION  FUNCTION  CE®ENCS  ON  THREE  VAR 
ABLES,  ANGULAR  FREQUENCY  OMEGA « PHASE  VELOCITY  V*  ANO 
DIRECTION  OF  PROPAGATION  THETK.  FNMOOl  OBTAINS  V THROUG 
. ITS  ARGUMENT,  OMEGA  AND  TMETK  FROM  COMMON.  SUBROUTINE 
NNDFN  IS  THEN  CALLED  TO  EVALUATE  THE  FUNCTION.  (SEE 
PIERCE,  J.CCMF.=HYSICS,  FEB. ,1967,  P.343-366  FOR  DEFINI- 
TION OF  NORMAL  MODE  OIS3ERSION  FUNCTION.) 


LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-6515-4) 
AUTHORS  - A, 0. PIERCE  ANC  J.aOSEY,  M.I.T.,  JUNE, 1968 


——USAGE—— 

OHSGA  MUST  BE  STCREC  IN  WORD  POSITION  402  OF  UNLABELEO  COMMON,  AN 
THETK  MUST  8E  IN  POSITION  404.  . 

FNMOG1  CALLS  SUB«OUTIN£  NHOFN  WHICH  CALLS  AAAA- ANO  RRRR.  RRRR 
CALLS  A AAA  ANO  KMMM.  ALL  THESE  SUBROUTINES  ARE  CESCRI3SC  ELSE- 
WHERE IN  THIS  SERIES. 

CALLING  SEQUENCE  

COMMON  CM1(401),CMSGA, CM2, THETK 
OriEGA  * XXX 
’ THETK  a XXX 
V « XXX 

FUNCTN  * FNMOOl  (V)  

INPUTS  

V PHASE  VELOCITY  (KM/SEC). 

R*4 

OMEGA  ANGULAR  FREQUENCY  (KACI ANS/SEC) '. 

R*4  

THETK  PHASE  VELOCITY  DIRECTION  HEASUREO  COUNTER-CLOCKWISE  FROM 

R*4  X-AXIS. 

OUTPUTS  

THE  ONLY  OUTPUT  IS  THE  VALUE  OF  THE  NORMAL  MOCE  CISPERs’lON  FUNCTIO 
FOR  THE  VALUES  OF  V,  OMEGA,  ANO  THETK  WHICH  HAVE  BEEN  INPUT. 


' ” -- — PROGRAM  FOLLOWS  BELOW— - 


DIMENSION  CKIOO.VXKIOO)  ,VVI  (lOO)  ,HI(100) 
COMMON  IMAX,CI,VXI,VYI,HI,OMcGAC.VPHSEC.THETK  . 

OMEGA  ANO  THETK  03TAINE0  FSCM  COMMON  _ 

omega=omegac 

CALL  NMOFN( OMEGA ,V, THETK, L,F°°,KI  . 

FNM001=FPP 

RETURN 

ENO 


FHMODt 

FNMOOl 

FNMCOl 

FNMOOl 

FNMOOL 

FNMOOl 

FNMCOl 

FNJ1001 

FMMCOl 

FNMCOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOCl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMCOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl  . 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMCOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMCOl 

'FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMCOl 

FNMCOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMCOl 

FNMOOl 

FNMOCl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 

FNMOOl 


1 

2 

3 

4 

5 

6 
7 
a 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
26 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 
- 44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 


r. 

M 


' v'i 

' . i 

• : J 


h 


if 
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SUBROUTINE  LNGTHK CON, V , INNCOE, NOP ,NVP, NVPP, N1 ,KL .THET K) 

' 

LNGTHN 

1 

e 

LNGTHN  (SUBROUTINE)  7/19/68  LAST  CAPO  IN  OECK 

IS 

LNGTHN 

2 

e 

LNGTHN 

3 

e 

LNGTHN 

. H 

c 

ABSTRACT— — 

LNGTHN 

5 

c 

LNGTHN 

6 

e 

TITLE  - LNGTHN 

LNGTHN 

r 

c 

LENGTHEN- THE  MATRIX  INNOOE  BY  ACOING  KL  ROMS  BETWEEN  THE  Nt 

AN 

LNGTHN 

a 

c 

NIU  i 

ROMS 

LNGTHN 

9 

e 

LNGTHN 

10 

c 

LNGTHN  AOOS  XL  ELEMENTS  TO  THE  VECTOR  OF  PHASE  VELOCITIE 

LNGTHN 

11 

e 

. 

V , OXVIOING  THE  INTERVAL  3ETWEEN  V(Nl)  ANO  V(K14l)  INTO 

LNGTHN 

12 

c 

KL*1  EOLAL  PARTS.  FOR  EACH  NEW  PHASE  VFLCCITY,  A NEW 

RO 

LNGTHN 

13 

e 

IS-  ACCEO  TO  THE  INMOOE  MATRIX  tOEFINEO  IN  SUBROUTINE 

LNGTHN 

14 

c 

HPOUT).  INNCOE  IS  STOREO  COLUMN  OY  COLUMN  IN  VECTOR  FOR 

LNGTHN 

15 

c 

* 

LNGTHN 

16 

c 

LANGUAGE 

FORTRAN  IV  (363,  REFERENCE  MANUAL  C2S-6515«4) 

LNGTHN 

17 

c 

AUTHOR 

J.H. POSEY,  N.I.T.,  JI.INE.1S68 

LNGTHN 

tn 

e 

, , 

LNGTHN 

19 

c 

LNGTHN 

20 

c 

—USAGE— 

LNGTHN 

21 

c 

LNGTHN 

22 

c 

ON, V, INNCOE  NUST  9E  DIMENSIONED  IN  THE  CALLING  PROGRAM 

LNGTHN 

23 

c 

NHOFN  IS 

ONLY  SUBROUTINE  CALLED 

LNGTHN 

24 

c 

LNGTHN 

26 

c 

FORTRAN  USAGE 

, 

LNGTHN 

26 

c 

CALL  LNGTHN(OH,V,INNOC£,NOM,NVP,NVPP,N1,KL,THETK) 

LNGTHN 

27 

c 

LNGTHN 

28 

c 

ZNFUTS 

LNGTHN 

29 

c 

LNGTHN 

30 

c 

OH 

VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  ANGULAR  FRE- 

LNGTHN 

31 

c 

R*4(0I 

QUENCY  CORRESPONDING  TO  THE  COLUMNS  OF  THE  INNOOE  MATRIX 

LNGTHN 

32 

c 

LNGTHN 

33 

e 

V. 

VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  PHASE  VELOCITY 

LNGTHN 

36 

c 

R*«i(0> 

CORRESPONDING  TO  THE  ROWS  OF  THE  INHOOE  HATRIX. 

LNGTHN 

35 

c 

LNGTHN 

36 

c 

* ZNHOOE 

EACH  ELEMENT  CF  THIS  MATRIX  CORPESOQNOS  TO  A POINT  IN 

TH 

LNGTHN 

?r 

c 

1*4(01 

FREQUENCY  (CM)  - RHASS  VELOCITY  (V)  «LAHE.  IF  THE  NORMA 

LNGTHN 

38 

c 

MOOE  CISPERSICN  FUNCTION  (FeP)  IS  "OSITIVE  AT  THAT  POINT 

LNGTHN 

39 

c 

THE  ELEMENT  IS  ♦ !,  IF  XP?  IS  NEGATIVE,  THE  ELEMENT  IS 

LNGTHN 

40 

e 

-1,  IF  FPF  CCES  NOT  EXIST,  THE  ELEMENT  IS  5.  INMOCE 

HA 

LNGTHN 

41 

c 

NVP  ROMS  ( INCcc ASEO  TO  NV»P> .ANO  NOW  COLUMNS.  MATRIX 

IS 

LNGTHN 

42 

c 

STOREO  IN  VECTOR  FORM  COLUMN  AFTEP.  COLUMN. 

LNGTHN 

43 

c 

NON 

THE  NUMBER  OF  ELEMENTS  IN  OH. 

LNGTHN 

44 

c 

1*4  . 

• 

LNGTHN 

45 

c 

NVP 

'THE  NUMSER  OF  ELEMENTS  IN  V (WHEN  LNGTHN  IS  CALLED) * 

LNGTHN 

46 

-c 

1*4 

LNGTHN 

47 

c 

Nt 

HUMMER  OF  INMCCS  ROH  IMMEDIATELY  AeOVE  SPACE  IN  WHICH 

NE 

LNGTHN 

48 

c 

1*4 

ROMS  ARE  TO  BE  AOCSO  ...  . 

LNGTHN 

49 

c 

LNGTHN 

50 

c 

KL 

NUMBER  OF  RONS  TO  eE  AOCEO  . 

LNGTHN 

51 

c 

1*4 

LNGTHN 

52 

c 

THETK 

PHASE  VELOCITY  OIRECTION  (RAOIANS) 

LNGTHN 

53 

c 

R*4 

LNGTHN 

54 

c 

* . ... 

LNGTHN 

55 

c 

OUTPUTS 

. . 

LNGTHN 

56 

c 

LNGTHN 

57 

c 

THE  OUTPUTS  ARE  NVPP  (»  NVP  ♦ KL)  ANO  REVISED  VERSIONS  OF  V AND 

LNGTHN 

58 

c 

XNHOOE. 

LNGTHN 

59 

c 

• 

, 

LNGTHN 

60 

e 

. 

__  . T . . - k t 

LNGTHN 

61 

e 

—EXAMPLE— 

LNGTHN 

62 

c 

LNGTHN 

63 

e 

• : VALUES  OF 

INMOOE  NOT  VALID  — FOR  ILLUSTRATION  PURPOSES  ONLY 

LNGTHN 

64 

c 

* * ■ » * 

• 

LNGTHN 

65 

c 

V*i. 0,2.0 

LNGTHN 

66 

c 

- 

OM*l*0f2*0  ..  , ..  . 

LNGTHN 

67 

c 

.* 

INMOOE *1,-1, -1,1 

LNGTHN 

68 

I 
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e 

CALL  LNGTHN (OH, V, INHOOE ,2«2«NVPP«1*3*THETIQ 

LNGTHN 

69 

e 

LNGTMI* 

70 

c 

UPON  RE  TURK  TO  CALLING  PROGRAM  THE  VALUES  OF  1 

f ANO  NVPP  ARE 

LNGTHN 

71 

c 

V*l. 0,1. 25. 1.5, 1.75, 2.0 

* 

LNGTHN 

72 

c 

NVPP«5 

LNGTHN 

73 

e 

INHOOE  MILL  ?E  OF  THE  FORM 

LNGTHN 

7L 

c 

INMODE=l.Y.Y,Y,-l.-l,Y,Y.Y,l 

* 

LNGTHN 

75 

c 

WHERE  THE  VS  ARE  NEW  ELEMENTS,  EACH  OF  WHICH 

MAY  BE  -1.  It 

LNGTHN 

76 

c 

OR  5 

LNGTHN  ' 

77 

« 

LNGTHN 

78 

c 

.ORIGINAL  MATRIX  EXPANOEO  MATRIX 

LNGTHN 

79 

c 

LNGTHN 

80 

c 

♦-  . 

LNGTHN 

81 

c 

YY 

LNGTHN 

82 

e 

YY 

LNGTHN 

83 

c 

YY 

LNGTHN 

84 

c 

. ..  ■ 1- . 

LNGTHN 

65 

c 

LNGTHN 

86 

c 

* 

LNGTHN 

87 

c 

——PROGRAM  FOLLOWS  BELOW— 

LNGTHN 

68 

c 

• 

LNGTHN 

89 

c 

LNGTHN 

90 

c 

• 

LNGTHN 

91 

c 

VARIABLE  OIMEHSIONING 

LNGTHN 

92 

OIMENSION  OW(l),V(l)»IFMOOE(ll 

, , 

LNGTHN 

93 

COMMON  IhAX.CKlOOl.VXKlOO)  ,VYI(100),HI(100) 

LNGTHN 

94 

OELVP  * IV(Nlti>-V(NU>  / (KL+1) 

LNGTHN 

95 

c 

DEL**  IS  THE  INTERVAL  OF  PHAS  VELOCITIES  FOR  THE  AOOEO  ROWS. 

LNGTHN 

96 

NVPP  « NVP  ♦ XL 

LNGTHN 

97 

e 

FV"P  IS  THE  FEW  NUMBER  OF  ROWS  IN  THE  TOTAL  MATRIX. 

LNG1HN 

98 

e 

♦ 

.<JV.  A,„  . 

LNGTHN 

99 

e 

M2  IS  FEW  NUMBER  OF  CLO  ROW  FO.  (M1UI 

LNGTHN 

100 

. N2  « Nl  ♦ XL  ♦ 1 

LNGTHN 

1C1 

e 

LNGTHN 

102 

c 

SHIFT  OLO  VALUES  OF  V(I»  IF  LOWER  ROWS  TO  I*KL  SF0T9 

ONE  HAS 

TO 

LNGTHN 

103 

c 

SHIFT  THE  NVF  ELEMENT  FIRST.  NOTE  THAT  I .RANGES  FROM 

FVP"  TO 

N2 

LNGTHN 

104 

c 

DOWNWARD  WHILE  I-XL  RANGES  FROM  NVF  TO  Nl*t. 

■ 

LNGTHN 

105 

00  71  IP  «N2.NVPB 

LNGTHN 

106 

I a NV°R  - CIP-N2J 

* • ♦ 

LNGTHN 

107 

71  VCII  « VII-XLI 

LNGTHN 

108 

c 

. 

LNGTHN 

1C9 

c 

FEW  VALUES  OF  VP  ARE  INSERTEO  INTO  V 

• 

LNGTHN 

110 

. 00  72  IP*1»XL 

LNGTHN 

111 

X « Nl  ♦ I® 

LNGTHN 

112 

_ 72  veil  * VCNU  ♦ Ie*OELVP  ...  . — 

LNGTHN 

113 

c 

LNGTHN 

114 

c 

BEGINNING  AT  THE  RIGHT  INMCOE  IS  LENGTHENED  COLUMN  BY 

COLUMN 

LNGTHN 

115 

00  90  JP*1,N0M 

LNGTHN 

116 

...  J » HON  - (JP-ll  . 

..•V  K.  . . 

LNGTHN 

117 

00  90  IB*1«NVPP 

LNGTHN 

118 

. ...  I * NVPP-  (IP-11  . 

. * 

LNGTHN 

119 

c’ 

LNGTHN 

120 

C THE  IJ  ELSHEFT  IN  THE  INMCCE  VECTOR  IS  THE  J ELEMENT 

IK  THE  I 

ROW  OF 

LNGTHN 

121 

C 

THE  NEW  INHOOE  MATRIX 

LNGTHN 

122 

IJ  « <J-1»*NVPF  ♦ I 

LNGTHN 

123 

c 

LNGTHN 

124 

c 

IF  I CORRESPONDS  TO  A NEW  SOW  INHOOE (I J>  MUST  BE  OSTERMINEO  FROM  NMOF 

LNGTHN 

125 

IF  (I.GT.N1.AN0.I.LT.F2)  GO  TO  9 

LNGTHN 

126 

c 

LNGTHN 

127 

c 

XJOLO  IS  NO.  OF  ELEMENT  IN  CLO  INHOOE  VECTOR  WHICH  IS 

TO  BE  MOVED  INT 

LNGTHN 

126 

c 

IJ  POSITION  OF  NEW  VECTOR 

LNGTHN 

12  J 

IJOLO  * (J-1»*FVS  ♦ I 

LNGTHN 

130 

c 

NOTE  THAT  ICLO  IS  ALWAYS  I IF  I .LT.  Nl  BUT  IOLO  IS  I 

-XL  IF  I 

.GE.  N2 

LNGTHN 

131 

c 

IJOLC  IS  COMPUTED  ON  THE  BASIS  OF  FVP  RATHER  THAN  NVPP  ROWS. 

LNGTHN 

132 

on 


-ye 


"TVTiz&vr yVFFIi 
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XP  CI.Ce.N2)  IJ010  * IJCLO  - XL 

xnnooeciji  * xNMCoecucuDi 

6Q  TO  80 

e 

9 CALL  NMOFNCOHCJI »V(I) . THETK* L»FP0»K> 

XP  FPP  EXISTS  L * 1 ANO  1NKC0ECIJI  * CFP®/ABStFPP>» 
XNttODE(IJ)  a l 

IP  CL.SO.i.ANO.FFP.LE.O.O)  INMOOECIJ)  > -1 
C 

C XP  PPP  DOES  NOT  EXIST  L * -1 
XP  CL.EQ.-l)  INMOQE ( IJ) *5 
C 

•0  CONTINUE 
90  CONTINUE 
RETURN 
END 


LNCTHN  133 
LN6THN  134 
LNCTHN  135 
LNCTHN  ' 136 
LNCTHN  137 
LNCTHN  138 
LNCTHN  139 
LNCTHN  lM! 
LNCTHN  141 
LNCTHN  142 
LNCTHN  143 
LNCTHN  . 144 
LNCTHN  145 
LNCTHN  146 
LNCTHN  147 
LNCTHN  148 
LNCTHN  149 


UOOUUUOUOOUOOUUUUUUUOUOUUUUUUUUUUUOUUUUUUUUUUUUUUUUU’JUUOUOUUUUU 
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SUBROUTINE  MHKM (OMEGA. AKX, AKY  »C»VX» VY.M.EM)  HHHH 

HHHH  (SUBROUTINE!  7/25/6*  LAST  CARO  IN  OECK  IS  MHHH 

MHHH 

——ABSTRACT HHHH  " ' 

.MHHH 

•TITLE  - MHHH  MHMH 

THIS  SU1ROUTINE  CONFUTES  THE  2-BY-2  TRANSFER  MATRIX  EH  WHICH  MHMH 
CONNECTS  THE  SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS  AT  THE  TO®  HHHH  1 
OF  A LAYER  TO  THOSE  AT  THE  BOTTOM  Or  THE  LAYER  BY  THE  RELATION  HMHM- 

HHHH 

PHXl(ZB)®  EH  (If  1 ) •°HI1  (Z8*H) ♦ £rt(t»2) *PHI2  (ZBfHJ  HHHH 

HHHH 

■HI2(Z8) * EH\2;l)»PHIl(Ze*H)*  EM(2.2)»»HI2(Z8«HI  HHHH 

HHHH 

WHERE  Z9  OENOTES  THE  NEIGHT  CF  TH£  BOTTOM  OF  AN  ISOTHERMAL  MHMH 

LAYER  (THICKNESS  H)  WITH  CONSTANT  WINDS.  THE  QUANTITIES  HHHH 

PHXl(Z)  ANO  PHIZ (Z I SATISFY  THE  RESIDUAL  EQUATIONS.  HHHH 

HHHH  A 

0(  FHID/OZ  * A (1. D* PHIKZ)  ♦ A(i.2)*PHI2(Z)  HHHH 

HHHH 

0(FHIZ)/0Z  » A (2 ,.)*PHI1 (Z)  ♦ A(2. *)*PHI2(Z)  HHHH 

ffMHH 

WHERE  THE  AdiJI  ARE  CONSTANT  OVER  THE  LAYER  ANO  WHERE  HHHH 

A(2«2)*-A(l«l) . ON  THIS  BASISt  ONE  CAN  SHOW  THAT  HHHH 

HHHH 

CH(ZfJ)  »CAI(X)*KOELTA(I,J)-H*SAI(X>*A(I,J)  ’ NHt.H 

HHHH  - 

WHERE  HHHH 

X *(A(1,1)®*2»AC1»2) * A (2 dll *H**2  HHHH 

. HHHH 

• ANO  WHERE  KCELTA(IfJ)  IS  YHE  K°QNECKER  DELTA  (1  IF  INOICES  HHHH 
• EQUAL.  0 OTHERWISE).  THE  FUNCTIONS  CAI  ANO  SAI  ARE  OFFINEO  IN  HHN*! 

* THE  OESCRIPTICNS  OF  TMg  CORRESPONQIHG  FUNCTION  SUBPROGRAMS.  MHHM. 

HHHH 

THE  MATRIX  A IS  CCMFUTEC  FOR  GIVEN  FRSCUENCY,  WAVE  NUMBER,  SOU  HHKH 
_ SPEED,  ANO  NINO  VELOCITY  BY  CALLING  SUBROUTINE  AAAA,  . HHHH 

HHHH 

LANGUAGE  - FORTRAN  IV  (3(0,  REFERENCE  HANUAL  C22-6515-4*  HHHH 

HHHN 

AUTHOR  - A. 0. PIERCE.  M.I.T.,  JULY. 1968.  ...  _ HHHH 

NHHH 

—CALLING  SEQUENCE ....  _ HMHM 

HHHH 

SEE  SUBROUTINES  NAMPCE.RRRR  HHHH 


X «(AU,1)«*2aA(1,2)*A(2,1))*H**2 


ANO  WHERE  KCFLTA ( I, J)  IS  THE  K*ONECKER  DELTA  (1  IF  INOICES 
EQUAL.  0 OTHERWISE).  THE  FUNCTIONS  CAI  ANO  SAI  ARE  OFFINEO  IN 
THE  OESCRIPTICNS  OF  TM£  CORRESPONQIHG  FUNCTION  SUBPROGRAMS. 


DIMENSION 

EM  (2, 

2» 

HHHH 

45 

CALL  MMMM(JMEGA 

, AKX, AKY  . 

C» VX.YY.H.EH) 

HHHH 

46 

HHHH 

47 

• • 

—EXTERNAL  SUBROUTINES  REQUIRED- 

HHHH 

48 

MHMH 

49 

AAAA, CAI, 

SAI 

HHHH 

50 

MHHH 

51 

• • 

—ARGUMENT  LIST 

HHHH 

52 

HHHH 

53 

OHEGA 

R*4 

NO 

INP 

HMM.M 

54 

AKX 

R*4 

NO 

INP 

HHHH 

55 

AKY 

R*4 

NO 

IN® 

HHHH 

56 

C 

R*4 

NO 

INP 

MHMH 

57 

VX 

R*4 

NO 

INP 

HHHH 

58 

VY 

R*4 

NC 

INS 

HMHM 

59 

A 

R*4 

NO 

IN® 

HHHH 

60 

EH 

R*4 

2-8Y-Z 

OUT 

HHHH 

61 

NO  COHHON  STORAGE  IS  USED 


no  no  no  o non oon no n non non non 


10.8 


-.—INPUTS- 

HMHN 

65 

MMMM 

66 

ONESA 

SINGULAR  FRECUENCY  IN  RAC/SEC 

MMMM 

6/ 

AKX 

»X  COMPONENT  OP  HORIZONTAL  WAVE  NUMOi'R 

VECTOR 

IN 

l/KM 

MMMM 

68 

AKY 

«Y  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER 

VECTOR 

IN 

1/KM 

MMHM 

69 

C 

•SOUND  SFEE0  IN  KM/SEC 

MMMM 

70 

VX 

*X  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC 

MMMM 

71 

V Y 

«Y  COMPONENT  OF  HINC  VELOCITY  IN  KM/SEC 

MMMM 

72 

N 

■THICKNESS  IN  KM  OF  LAYER 

MMMM 

73 

* 

MMMM 

7«t 

OUTPUTS 

MMMM 

75 

MMMM 

76 

EH 

«2-“Y-2  TRANSFER  MATRIX  WHICH  RELATES  THE  SOLUTIONS  O 

MMMM 

77 

THE  RESinUAL  E0UATICNS  AT  THE  TO®  OF  A 

LAYER 

TO 

THOS 

MMMM 

78 

AT  THE  BOTTOM  OF  THE  LAYER 

MMMM 

79 

MMMM 

80 

——PROGRAM  FOLLOWS  BELOW 

MMMM 

81 

■ 

.. 

MMMM 

82 

MMMM 

83 

. DIMENSION 

A (2*2)  ,EM(2*2)  

HNMM 

8*» 

MMHM 

85 

COMMUTE  4(1* J) 

f 

CAI(X),  ANC  SAI(X) 

MMMM 

86 

CALL  A AAA (OMEGA*  4<X* AKY ,C«VX,VY*A) 

MMMM 

87 

X*(A(1»1)**2*A(1,2)»A(2*1) )*H**2 

MMMM 

88 

CA*CAI (X) 

MMMM 

89 

SA*SAI(X> 

MMMM 

90 

MMMM 

91 

COMPUTE  THE  TERMS  -H*SAI(X)*A(I,J)  .. 

MMMM 

92 

TA*H*SA 

MMMM 

93 

00  90  1*1, 

2 

..  . . „ 

... 

MMMM 

9«* 

. 00  90  J*t, 

2 

. 

MMMM 

95 

90  CM(I,J)*-TA*A»t,J)  ..  . .. 

MMMM 

96 

• 

MMMM 

97 

800  IN  CAI(X)*KOELTA(I,J>  TERMS  BY  AGOING  CA  TO  DIAGONAL  ELEMENTS  MMMM  98 

00  ISO  1*1*2  ...  MMMM  09 

190  EH(X.X)*EH(X.n»CA  MMMM  100 

MMMM  101 

MMMM  102 

MMMM  103 


C 


RETURN 

ENO 


no oofxooooooonoo ooooonoooooooooooooooonooooooooooooooooooooonoo 
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SU870UTIKE  HOOETR (1ST, J5T, NHOOE.XST.KFIN. 0MN03, V°MOO.NROH ,NC0L « HOOETR  £ 

1 INMOOE. OH,  VP.KPUO)  MOOETP.  2 

. MOOETR  (SUBROUTINE)  6/25/68  LAST  CARO  IN  CECX  IS  HOOETR  3 

HOOETR  4 

HOOETR  5 

——ABSTRACT——  HOOETR  6 

NOC'TR  7 

TITLE  - MQOETR  MOOST.R  6 

PROGRAM  TO  T AEULATE  A TABLE  OP  PHASE  VELOCITY  VERSUS  FREQUENCY  HOOETR  9 

FOR  A GIVEN  GUIOEC  MCOE.  THE  NORMAL  MOOE  0ISSER5I0N  FUNCTION  -HOOETR  10 

IS  ZERO  FOR  EACH  LISTING  OF  THE  TABLE.  THE  COMPUTATIONAL  HOOETR  11 

METHOD  IS  OASEO  ON  THE  PFEVICUSLY  COMPUTEO  VALUES  OF  THE  NMOF  HOOETR  12 

SIGN  INMOOE ((J”l)*N.ROW*II  AT  POINTS  (I.JI  IN  A RcCTANGULAP  HOOETR  13 

ARRAY  OF  HROW  ROWS  ANC  NCOL  COLUMNS.  QIFFERSNT  COLUMNS  (J>  HOCCTR  14 

CORRESPOND  TO  DIFFERENT  FREQUENCIES  WHILE  DIFFERENT  ROWS  (I)  HOOETR'  15 

CORRESPOND  TO  DIFFERENT  PHASE  VELOCITIES.  DISPERSION  CURVES  HOOETR  16* 

OF  VARIOUS  MODES  APPEAR  ON  THIS  ARRAY  AS  LINES  OF  DEMARCATION  MOCETR  17 

BETWEEN  ADJACENT  FEGICNS  HlTH  OIFFERENT  INMOOES.  TWO  ACJACENT  HOOETR  18 

POINTS  WITH  INHOOSS  CP  OPPOSITE  SIGN  BRACKET  A POINT  ON  THE  HOOETR  19 

ACTUAL  DISPERSION  CURVE.  IF  THE  POINTS  CORRESPOND  TO  THE  SAKE  HOOETR  20 

FREQUENCY.  THEN  THE  PHASE  VELOCITY  CQRRESFOHCING  TO  THAT  CHEGA  MOOZT.R  21 

ON  THE  DISPERSION  CURVE  IS  FOUND  BY  CALLING  RTHI.  A 360  °ACKAG  HOOETR  22 

ROUTINE  FOR  SOLVING  NONLINEAR  EQUATIONS,  AND  CONSIDERING  THE  HOOETR  23 

NHOF  AS  A FUNCTION  OF  VFHSE  WITH  OMEGA  FIXEO.  SIMILARLY,  IF  HOOETR  24 

THE  POINTS  CORRESFCNC  TO  THE  SAME  PHASE  VELOCITY.  THE  APPSOPRI  HOOETR  25 

OMEGA  CORRESPONDING  TO  THIS  PHASE  VELOCITY  IS  FO’JNO  8Y  CALLING  HOOETR  26 

RTHI  WITH  THE  NMCF  CCNSZOEREO  AS  A FUNCTION  OF  OMEGA  WITH  HOOETR  27 

• V“HSE  FIXEO.  HOOETR  28 

MOCETR  29 

THE  PROGRAM  SUCCESSIVELY  CONSIDERS  EACH  PAIR  OF  AOJACENT  POINT  HOOETR  30 

KITH  OPPOSITE  INMOCZS  BRACKETING  A LINS  OF  DEMARCATION  ANC  HOOETR  31 

PROCEEDS  IN  THE  CIRECTION  OF  INCREASING  FREQUENCY  UMOFR  THE  HOOETR  32 

ASSUMPTION  THAT  THE  PHASE  VELOCITY  CURVE  SLOPES  OOWNWAROS.  HOOETR  33 

HOOETR  34 

PROGRAM  NOTES  HOOETR  35 

HOOETR  36 

THE  MODES  ARE  NUMSEREC.  THE  INPUT  INTEGER  NMOOE  OESIGNA  MCDETR  37 

WHICH  MOOE  IS  EEING  TABULATED.  THE  »AI«S  OF  FREQUENCY  HOOETR  35 

ANO  PHASE  VELOCITY  VALUES  ARE  STORED  AS  OMMOGIKST INMOOE > HOOETR  39 

OHMOO(KST(NMCCE)*l»  .0MMC0(K3T(NM00S)*2) HOOETR  40 

. ..  OMHOQI  XFINO.'MCCE)  ) , V°MCC  (K3TINMCDE  > > .VPMOO  (K3T  (NH03E)  *1)  MOCETR  41 

.VPMOO ( KF IN (NMCOZ • ) • THE  ARRAYS  OMMOO  ANO  VO.MOO  HOOETR  42 

ARE  USEC  TO  STORE  DISPERSION  CURVES  FOR  ALL  HOOES.  HOOETR  43 

HOOETR  44 

KST(NKOOE)  IS  INPUT  WHILE  KFIN(NHOOE)  IS  OSTERHINEO  OURI  MOCETR  45 

THE  CCMFU ( AT ICN . THE  TOTAL  NUMBER  OF  POINTS  EXTPACTACLE  HOOETR  46 

- FROM  THE  ARRAY  OF  INMOOE  VALUES  DETERMINES  KFIN-KSTM,.  HOOETR  47 

IF  A SINGLE  PCINT  CANNOT  OE  CALC'JL ATEO.  THE  PROGRAM  HOOETR  48 

. ...  i.  _ RETURNS  KRUO=-l.  OTHERWISE  IT  .RETURNS  KRUGn.  HOOETR  49 

HOOETR  50 

THE  SUBROUTINE  RTHI  FOR  SOLVING  A NONLINEAR  EQUATION  HOOETR  51 

IS  ALLONSO  A MAXIMUM  OF  TEN  ITERATIONS  TO  FIND  THE  HOOETR  52 

..  ..  . PHASE  VELOCITY  TO  ACCURACY  OF  l.E-5  K.M/SEC  OR  THE  HOOETR  53 

FREOUENCY  TO  FOUR  SIGNIFICANT  FIGURES.  IF  THE  SEARCH  IS  HOOETR  54 

UNSUCCESSFUL  A MESSAGE  IS  PRINTED  ANO  THE  POINT  IS  HOOETR  55 

SKIPPEO  OVEP.  HOOETr  56 

• • HOOETR  57 

THE  INPUT  PARAMETERS  IST.JST  ARE  COORDINATES  OF  A HUNT  HOOETR  58 

THE  INMOOE  AFiRAY,  THIS  POINT  SHOULD  3E  THAT  POINT  FtjJ'TH  HOOETR  59 

TO  THE  UFPER  LEFT  OF  THCSE  POINTS  LYING  BELOW  THE  LINE  0 HOOETR  60 

DEMARCATION  FCfi  THE  MOOE  CONSIOEREO,  PROVIDING  THAT  “OIN  HOOETR  61 

OOES  NOT  HAVE  INMOOE*5 . HOOETR  62 

HOOETR  63 

LANGUAGE  ■ - FORTRAN  IV  (360,  REFERENCE  MANUAL  C22-6515-4)  HOOETR  64 
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e 

AUTHOR 

A. 0. PIERCE.  M.I.T..  JUNE. 1955 

HOOETR 

6$ 

e 

NOOETR 

66 

e 

——CALLING  SEQUENCE 

HOCETR 

67 

e 

HOOETR 

65 

c 

SEE  SUBROUTINE  ALLMOC 

HOOETR 

69 

e 

DIMENSION  KST(l) «KFIN(1>  .OMMODd ) .VPHOD (1) , INMOUE (l).OM(l) «VP(1) 

HOOETR 

70 

c 

(SUOROUTINE  USES  VARIABLE  DIMENSIONING) 

HOOETR 

71 

c 

CALL  MOOETR (1ST. JST.  Nf’CCE.KST.KFIM.OHMQD.VPMOO.NROW.MCOL. INPOOE. 

HOOETR 

72 

c 

1 OM.VP.KRUO) 

HOOETR 

73 

c 

IF ( KRUO 

.EQ.  1 ) GO  SOMEWHERE 

HOOETR 

76 

c 

* 

HOOETR 

75 

c 

——EXTERNAL  SUBROUTINES  REQUIREO— — 

HOOETR 

76 

c 

HOOETR 

77 

c 

NXTFNT, 

PTMI,  FNM001 . FNM002.  NMOFN,  AAAA.  RRRR.  MHMM.CAI.SAI 

HOOETR 

75 

c 

(FNHODl  ANO  FNNOOE  CALL  NMOFN,  WHICH  IN  TURN  CALLS  AAAA  ANO  RRR 

HOOETR 

79 

c 

RRRR 

CALLS  AAAA  ANO  MMMM.  DESCRIPTIONS  OF  THESE  PROGRAMS  ARE 

MOOETR 

SO 

c 

GIVEN 

ELSEWHERE  IN  THIS  SERIES.) 

MOOETR 

81 

c 

MOOETR 

82 

c 

RTMI  IS 

A SUBROUTINE  CODED  BY  IBM  TO  DETERMINE  A RCOT  OF  A GENERA 

MOOETR 

03 

c 

NONLINEA 

R EQUATION  F (X)  *0  BY  MEANS  OF  MUSLLEP.-S  ITERATION  SCHEME 

MOOETR 

S6 

c 

OF  SUCCESSIVE  BISECTION  AND  INVERSE  PARAeOLIC  INTER°OLAT ION.  A 

MOCETR 

85 

c 

COMPLETE 

DESCRIPTION  ANC  DECK  LISTING  IS  GIVEN  ON  PAGES  195-199  0 

MOOETR 

86 

c 

DOCUMENT 

H20-02C5-2.  SYST£“/360  SCIENTIFIC  SUBROUTINE  PACKAGE 

MOOETR 

87 

c 

(360 A-CM 

-03X)  VERSION  II.  OPOGRAMHER-S  MANUAL.  IBM,  TECHNICAL 

MOCETR 

88 

c 

PUBLICATIONS  OEPARTMENf,  U2  EAST  POST  ROAD*  WHITE  PLAINS.  N.Y. 

MOOETR 

89 

c 

10601.  PUBLISHED  1966.  1567. 

HOOETR 

90 

c 

MOOETR 

91 

c 

—ARGUMENT  LIST 

MOOETR 

92 

c 

MOOETR 

93 

c 

1ST 

1*6  NO  INP 

MOOETR 

96 

c 

JST  _ 

1*6  NO  INP 

MOOETR 

95 

c 

. NNOOE 

1*6  NO  IN® 

MOOETR 

96 

c 

KST 

1*6  VAP  INP  (ONLY  KST(NMOOE)  NEECEO) 

MOOETR 

97 

c 

KFIN 

1*6  VAR  OUT  (ONLY  KPIN(NHOOS)  COMPUTED) 

HOOETR 

95 

c 

. . OMMOO(N) 

R*6  VAR  CUT  (COMPUTED  FOR  N .GE . KST (NMODE) ) 

MOOETR 

99 

c 

VPMOO(N) 

R*6  VAR  OUT  (COKPUTEO  FOR  N .GE.  KST (NMCOE) ) 

MOOETR 

100 

c 

NROW 

1*6  NO  INP. 

MOOETR 

101 

c 

NCOL 

1*6  NO  IN® 

MOOETR 

102 

c 

INMOOE 

1*6  VAR  INP  ... 

MOOETR 

103 

c 

OH 

R*6  VAP  INP 

MOOETR 

106 

c 

VP 

R*6  . VAR  INP  ..  

HOOETR 

1C5 

c 

KRUO 

‘ 1*6  NO  OUT  ‘ '• 

HOOETR 

106 

c 

■ . _|r  , „ _ — »"  >— 

HOOETR 

107 

c 

COMMON  STORAGE  USED 

MOOETR 

108 

c 

COMMON  IHAX.C1. VXX, VYI«HI,OKEGAC«V®WSEC.TH£TK 

HOOETR 

1C9 

c 

HOOETR 

110 

c 

IHAX 

1*6  NO  INP 

MOOETR 

111 

c 

. Cl 

R*6  100  IN® 

HOOETR 

112 

c. 

. . . VXI 

R*6  100  INP  . . 

MOOETR 

113 

c 

VYI 

R*6  100  IN® 

MOOETR 

116 

c 

HI 

R*6  100  IN® 

MOOETR 

115 

c 

OMEGAC 

R*6  NO  OUT  (USED  INTERNALLY) 

MOOETR 

116 

c 

VPHSEC 

R*6  NO  OUT  (USED  INTERNALLY) 

MOOETR 

117 

c 

THFTK 

R*6  NO  INP 

MOOETR 

118 

c 

HOOETR 

119 

c 

INPUTS 

HOOETR 

120 

c 

HOOETR 

121 

c 

1ST 

•ROW  INOEX  CF  START  POINT,  WHICH  MUST  LIE  BELOW  LINE 

MOOETR 

122 

c 

OF  DEMARCATION 

HOOETR 

123 

c 

JST 

•COLUMN  INCEX  OF  START  ®OINT 

HOOETR 

126 

c 

NMOOE 

•NUMBER  LABELLING  MODE  TO  3E  TABULATEO 

MOOETR 

125 

c 

KST(NMOOE)  =INOEX  OF  CM*OC  ANO  V®70C  CORRESPONDING  TC  FIRST 

MOOETR 

126 

c 

PCINT  TA8ULATEO. 

MOOETR 

127 

c 

NROW 

•NUM0ER  OF  ROWS  IN  INMOOE  ARRAY 

MOOETR 

128 

uoouuuuouuuuouuuouuoouuuuouuuuuuoouuuuuuuuuuuuuuuuuuuuuuuuouo 
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NCOL 

INMOOE 


ON 

VP 

XMAX 

cnn 

VXXdl 

vrxtn 

hud 

THETK 


Xr IN(NHOOE) 
OMMOO (N) 


VPMOOCN) 


•NUMBER  OF  COLUMNS  IN  INN03E  ARRAY  MOOETR 

•ARRAY  WHOSE  (J-1)*NR0W*I-TH  ELEMENT  IS  THE  SIGN  OF  MOOETR 
THE  NORFAL  MOCE  QISFEPSION  FUNCTION  WHEN  OFEGA*0M(J)  MOOETR 
VPHS£*V°( I) • MOOETR 

•VECTOR  OF  FREOUENCIES  AT  WHICH  INMOOE  IS  TABULATED.  MOOETR 
•VECTOR  OF  PHASE  VELOCITIES  AT  WHICH  INMOOE  IS  HOOETR 

TAOULATEO.  HOOETR 

*NUN«EP  OF  ATMOSPHERIC  LAYERS  OF  FINITE  THICXNSSS.  MOOETR 
•SOUND  SPEED  IN  I-TH  LAYER  IN  KM/SEC.  -MOOETR 

•X  COMPONENT  OF  WINO  VELOCITY  IN  I-TH  LAYER  IN  KM/SEC  MOOETR 
•Y  COMPONENT  OF  WINC  VELOCITY  IN  I-TH  LAYER  IN  KM/SEC  MOOETR 
•THICKNESS  IN  KM  OF  I-TH  LAYER  MOOETR 

•PHASE  VELCCITY  DIRECTION  IN  RADIANS  W.R.T.  X AXIS  MOOETR 

MOOETR 

——OUTPUTS——  MOOETR 

MOOETR 

•INCFY  OF  CMMOO  ANO  VPMOO  CORRESPONDING  TO  LAST  MOOETR 

POlN * TABULATED.  MOOETR 

•ANGULAR  FREQUENCY  CF  POINTS  ON  DISPERSION  CURVE.  MOOETR 
NsKST (NMOOE ) UP  TO  KFIN(NHQCE)  COROESPONDS  TO  NMOOE  MOOETR 
MOOE.  MOOETR 

•PHASE  VELOCITY  OF  POINTS  ON  DIS°ERSICN  CURVE.  HOOETR 


N*XST ( NFCCE)  UP  TC  KFIMNHOQt)  CORRESPONDS  TO  NMOOE  MOCETR 


NOOC.  HOOETR 

. KRUO  >FLAG  IN'OIC AT IN'G  IF  AMY  POINTS  ON  OISPERION  CURVE  MOOETR 

HAVE  BEEN  FOUM9.  t IF  YES.  -1  IF  NO.  MOOETR 

OMEGAC  •INTERNALLY  USED  FREQUENCY  TRANSMITTED  AMONG  SUe-  HOOETR 

ROUTINES  THROUGH  COMMON  HOOETR 

VPHSEC  «ZNT£RNALLY  USEC  PHASE  VELOCITY  TRANSMITTED  AMONG  MOOETR 

SUBROUTINES  THROUGH  COMMON,  MOOETR 

HOOETR 

—-EXAMPLE—  MOOETR 

MOOETR 

SUPPOSE  THE  TAELS  OF  INFCOE  VALUES  IS  AS  SHOWN  BELOW  WITH  HOOETR 

...  MOOETR 

NRCW«7 . NC0L*14  MOOETR 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦  MOOETR 


...444444444** 


ON*.l» •?,.3,.4,.5.«6.«7,> 


a;. 9.1. 0.1. 1.1. 2. 1.3  MOOETR 


♦4— 4444444 


4*4 


1.4 

VP*. 5, .45, .40, *35.. 30 *.25, .20 
NMCQ£*2,  IST*3»  JST*1.  KST(U»7 


THEN  ONE  MIGHT  FIND  KRUC*1,  KFIN(2)s23*  ANO 


OHMOO(7)«.l  V®H00(7)*.43 
OMMOOt  6) *.2  VPMO0(S>*.42 

OHHOO (9) * .3  VPMOO  19  ) *«41 
ONMCO(IG) •> 33  VPMOC(10)*.4 
OMMOO ( 11) *. 36  VPMOO(ll) *• 35 
OMHOO (12) S.4G  VPMOO  (12) *«  34 
ONMOO (1 3) *.50  VPMOC(I3) *. 33 
OMMCO ( 14) • » 6C  VPMOO<14) *• 32 
. ...  OMHOO(15)=.70  VPHO0(15>  *.31 


0MMQD(16>*.75  V»NOO(16>*.3 
0MM00(17)=.»  VDM00(17) *.29 

0MM03(18)s.9  VPMOO (18) *.285 
OMMOO (19) *1.0  VPM00(19)=,28 
OMMOO(20)=l.l  V°MOO(20)*.27 
OWMOO(21)*1.2  VPMCO(2D *.265 
OMMOO! 22) =1.3  V°MOO (22) *,26 
OMMOO (23) *1.4  VPMOO(23»*.255 


——PROGRAM  FOLLOWS  BELOW—— 


OIHENSION  CI(100),VXI(100> .VYI(ICO) .HI (100) 

DIMENSION  KST(l)  .KFIN(l) .OMMOO ( 1 ), VPMOO ( i ), INMOOE ( 1 ). OM(l) ,VF(1> 
COMMON  IMAX, Cl. VXX.VYI.H I, CMEG AC. VPHSEC, THETK 


MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

HOOETR 

MOOSTR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

HOOETR 

HOOETR 

MOOETR 

HOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOETR 

MOOSTR 


129 

130 

131 

132 
) 33 

134 

135 

136 

137 
134 

139 

140 

141 

142 
143- 

144 

145 

146 

147 
140 

149 

150 

151 

152 

153 

154 

155 

156 

157 
154 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

iao 

181 

182 

153 

184 

185 

186 

187 

188 

189 

190 

191 

192 

W 


-»^  * 


W*P1' 
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e 

— . . 

* 

hocetr 

19f 

e 

FUNCTIONS  FKMOOl  A NO  FNM002  ARE  USED  AS  ARGUMENTS  OF  RTMX 

HOOETR 

194 

EXTERNAL  FNM001.FNH002 

NOOETR 

195 

e 

HOCETR 

196 

e 

INOEX  OF  FIRST  POINT  ON  DISPERSION  CURVE  IS  LARELLEO  AS  K 

HOOETR 

197 

K«KST(NNOOE> 

NOOETR 

198 

e 

’ 

HOOETR 

199 

JS«tJST-il*N»OW^IST 

HOOETR 

200 

I0*INHOQ£ (J5) 

'NOOETR 

201 

e 

HOOETR 

202 

e 

ME  CHECK  TO  SEE  IF  POINT  ABOVE  (IST.JST)  HAS  A DIFFERENT  INMOOE 

HOOETR 

203 

2 IFCIST  .EO.  1)  GO  TO  5 

HOOETR 

204 

^ , 

J6*CJST-1)*HP0W*IST-1  

HOCETR 

205 

IUP*INHOOE(J6> 

HOOETR 

206 

IF HUP  .EO.  -IC)  GO  TO  10 

HOOETR 

207 

c 

HOOETR 

208 

c 

IF  XT  OOESNT « ME  CHECK  THE  POINT  ON  THE  RIGHT.  ME  CAN  ALSO  ARRIVE  AT 

HOOETR 

209 

c 

5 FRCH  2 IF  IST«1. 

HOOETR 

210 

t 

5 IFCJST  .EO.  NCOL1  GO  TO  8 . . 

HOOETR 

211 

47* (JST>  *NROW»IST 

HOOETR 

212 

, 

ISIO«INHCOE<J7)  _ . . 

HOOETR 

213 

XFIISIO  .EQ.  *10)  GO  TO  15 

HOOETR 

214 

c 

HOOETR 

215 

c 

IF  ME  ARRIVE  AT  8,  ME  CANNOT  FIND  A POINT  EITHER  ABOVE  OR  TO  THE 

RICH 

HOOETR 

216 

...c 

OF  flST.JSTt  WHICH  HAS  A INMOOE  OF  OPPOSITE  SIGN. 

HOOETR 

217 

« KRUO*-l 

HOOETR 

218 

RETURN  ... 

HOOETR 

219 

e 

HOOETR 

220 

c 

ME  ASSIGN  A TY»E  INOEX  TO  THE  POINT  (1ST, JST) . SEE  DESCRIPTION 

CF 

HOCETR 

221 

c 

NXTPNT  FOR  DEFINITION  OF  TYPE  INOEX. 

HOOETR 

222 

10  ITYP1*1 

HOOETR 

223 

c 

HOPETR 

224 

. c 

.OPPOSITE  SIGN  ABOVE  _ . . . . 

HOOETR 

225 

GO  TO  20 

HOOETR 

226 

...e 

HOOETR 

227 

15  ITTP1*2 

HOOETR 

228 

..c 

OPPOSITE  SIGN  TO  RIGHT  ...  . . 

HOOETR 

229 

c 

HOOETR 

230 

c 

HE  NOM  CAN  IOENTIFY  CUR  FIRST  BRACKETING  • 

HOOETR 

231 

20  I1*IST 

HOOETR 

232 

. 

J1*4ST  .....  

HOOETR 

233 

c 

HOOETR 

234 

c 

STATEHENT  25  IS  START  OF  LCOP  TERMINATING  AT  190.  EACH  PASSAGE 

THROU 

HOOETR 

235 

C COOP  GENERATES  A NEW  POIKT  CN  THE  CIS»ERSION  CURVE. 

HOOETR 

236 

2$  IFIITYP1  .EQ.  2)  GO  TO  50  

HOOETR 

237 

C 

HOOETR 

238 

. c 

CALCULATION  IF  ITYC1*1.  STORE  FREQUENCY  IN  COMMON.  FINO  PHASE 

VELO- 

HOOETR 

239 

c 

CITY  WITHIN  SRACKSTEC  INTERVAL. 

HOOETR 

240 

OHEGAC*OM(Jll  . 

HOOETR 

241 

' VOOWN*VP(Il) 

HOOETR 

242 

..  . 

VUP*VP(Ii-l»  . 

HOCETR 

243 

£PS*l.S-6 

HOOETR 

244 

CALL  RTMHVA.F. FNMOOl. VCOWN.VUP.EPS .6* IER)  ...  . _ .L ... 

HOOETR 

245 

OHMOO(K»=OMSGAC 

HOOETR 

246 

VPMOO(K>*VA  „ ........  . 

HOOETR 

247 

GO  fO  100 

HOOETR 

248 

c 

. 

HOOETR 

249 

c 

CALCULATION  IF  ITYP1*2.  STORE  PHASE  VELOCITY  IN  COMMON.  FINO  FREQUE 

HOCETR 

250 

c 

IN  BRACKETED  INTERVAL. 

HOCETR 

251 

50  VPH3EC*VF(I1) 

HOOETR 

252 

OHLEF*CM(JlJ  . _ 

HOOETR 

253 

OHRIT*OH(Jl»l) 

HOOETR 

254 

EPS*tl.E-6>*0HRIT 

HOOETR 

255 

CALL  RTMItOHA, F.FNM002.CMLEF, OHRIT.EPS, 6. IER) 

HOOETR 

256 
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. OHHOO(K)*OHA 

HOOSTR 

257 

VPHQO(Kt*VPHSEC 

HOOETR 

250 

e 

toe  CONTINUE 

HOOETR 

259 

HOOETR 

260 

c 

WE  HAVE  NOW  FOUND  THE  K-TH  POINT.  HE  DO  NOT  YET  KNOW  IF  THIS  IS  THE 

HOOETR 

261 

c 

FINAL  FCINT  FOR  THE  NHOOE-TH  NODE.  HOWEVER.  HE  SET  KFINtNMQOE) *K 

HOOETR 

262 

KFINCNHOOEXK 

HOCETR 

' 263 

e 

WHEN  THE  SUBROUTINE  RETURNS.  THE  CURRENT  STOREO  KFZNtNKOOE)  HILL  9E 

HOCETR 

269 

c 

THE  CORRECT  ONE 

.HOOETR 

265 

c 

HOCETR 

266 

c 

HE  NOW  PREPARE  THE  SEARCH  FOR  THE  NEXT  POINT. 

HOOSTR 

267 

K*K*1  . 

HOOETR 

260 

179  CALL  NXTPNTCIl,Jt,ITYPl«I2,J2,ITYP2.NROW,NCOL*INPOOE»KUCOS> 

HOOETR 

269 

190  IF 1 KUDOS  .ED*  -1)  GC  TO  20C 

HOOETR 

270 

. 11*12 

HOOETR 

271. 

J1«J2 

HOOETR 

272 

XTYP1-ITYP2  . 

HOOETR 

273 

190  GO  TO  29 

HOOETR 

279 

e 

. lt  . r n j . . Iiai, 

HOOETR 

275 

200  CONTINUE 

HOOETR 

276 

c 

WE  CONTINUE  HERE  AFTER  AN  UNSUCCESSFUL  ATTSHPT  TO  FINO  THE  NEXT  POINT 

HOOETR 

277 

c 

PROVIOING  HE  HAVE  FOUND  AT  LEAST  ONE  POINT.  HE  CAN  EXIT  WITH  KRUO*l. 

HOOETR 

270 

IFI  K .LE.  KST(NFOOE)  1 GO  TO  8. 

HODETR 

279 

KRUO«l 

HOOETR 

200 

..  . RETURN 

HOCETR 

201 

c 

ENO 

HOOETR 

202 

HOOETR 

203 

ononnononnonnn oooooooooooon oooooonnonoooooooooooooooooooooooooo 
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SUBROUTINE  HOOLST(MOFNO,OHMOO, VPMOO, AKI.KST.KFIN> 

HOOLST  (SU3R0UTINEI  6/19/68  LAST  CARO  IN  DECK  IS 

-—ABSTRACT——  . .... 

TITLE  - NOOLST 

TABULATION  OF  SELECTEC  "OINTS  ON  THE  °HAS£  VELOCITY  (VPHSE>  VS 
ANGULAR  FRECUENCY  (CKEGAJ  CURVES  OF  SELECTED  MODES 

NO  CONFUTATION  OR  CHANGING  OF  UNITS  IS  PERFORME0  3Y  SUB- 
ROUTINE NOOLST,  IT  HERSLY  PRINTS  OUT  THE  INPUT  IN  LARELE 
AND  OROEREO  FASHION. 

LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C2S-6515-4I 
AUTHORS  • A. 0. PIERCE  ANC  J. POSEY,  K.I.T.,  JUNE, 1968 

——USAGE 

NO  SUBROUTINES  ARE  CALLEO.  . . 

..  KFIN,  CMMOO,  VFHCO,  KST  NILL  ASSUME  THE  DIMENSIONS  SPECIFIED  IN 
THE  CALLING  PROGRAM.  (DIMENSION  OF  KST  AND  KFIN  HUST  -3E  ,GE.  NHF 

FORTRAN  USAGE 

CALL  NOOLST  (MOFNO.OMHCC,VPMOO,KST,KFIN> 

INFUTS 

NUMBER  OF  HOOES  TO  BE  PRINTED  OUT. 


HOFND 

1*4 

OMNOO 

R*4(0) 


VECTOR  STORING  ANGULAR  FREQUENCY  COORDINATE  OF  FCINTS  ON 
OIS°£RSION  CURVES.  MOCE  M IS  STOREO  FROM  ELEMENT  <ST(M) 
THROUGH  ELEMENT  KFIN(P).  ( RAO/SEC  > 


VPMOO  VECTOR  STORING  °HASE  VELOCITY  COORDINATE  OF  POINTS  CN 
R-4(0)  -OISPERSION  CURVES.  MOCE  M IS  STORED  FRCM  ELEMENT  KST(M> 
THROUGH  ELEMENT  KFIN  CM) . I KM/SEC  > 


MOOLST 

modlst 

MOOLST 

MOOLST 

NOOLST 

MOOLST 

MOOLST 

MOOLST 

MOOLST 

MOOLST 

HOOLST 

MOOLST 

MOOLST 

MOOLST 

HOOLST 

MOOLST 

MOOLST 

HOOLST 

HOOLST 

HOOLST 

NOOLST 

HOOLST 

HOOLST 

HOOLST 

MOOLST 

MOOLST 

MOCLST 

MOOLST 

MOOLST 

MOOLST 

HOOLST 

HOOLST 

HOOLST 

HOOLST 

HOOLST 

HOOLST 

MOOLST 

MOOLST 

MOOLST 

MOOLST 

MOCLST 

MOOLST 

MOOLST 

HOOLST 


KST  SEE  OPMOO  AND  VPHCO  ABOVE. 

1*4(0) 

KFIN  SEE  OMHOO  ANO  VPMOO  ABOVE. 

1*4(0) 

OUTPUTS  . . . 

THE  OUTPUT  IS  AN  CROEREC  ANO  LAEELEO  PRINT  CUT  OF  THE  INPUTS, 
CLUOING  KST  ANO  KFIN.  ( SEE  EXAMPLE  BELOW.  ) 


—EXAMPLE 


CALLING  PROGPAM 

DIMENSION  KSTC2) ,KFIN(2> .OMMCO (5) , VPMOO (51 
HOFNO  * 2 
KST  * 1,3 
KFIN  » 2,5 


, . HOOLST 
HOOLST 
NOOLST 
HOCLST 
HOOLST 
HOOLST 
HOOLST 
HOOLST 
EX-  MOOLST 
MOOLST. 
MOOLST 
MOOLST 
HOCLST 
HOOLST 
MOOLS  T 
HOOLST 
HOOLST 
HOOLST 
HOOLST 
HOOLST 


1 

2 

3 

A 

5 

6 
7 
8. 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
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r 


’gry^gg?  -; 


c 

ONHOO  * 0.1,0.2,0.1,0.15,3.2 

HOOLST 

E5 

c 

VPMOO  * 1.0, 2.0.?. 0,2. 5,3.0 

MOOLST 

66 

e 

COLL  MOOLST  (MOFNO,  Of'MCO,VPHOO«KST,KFINt 

MOOLST 

67 

e 

MOOLST 

68 

e 

PRINT  OUT 

MOOLST- 

60 

e 

MOOLST 

TO 

e 

TABULATION  OF  FIRST  2 MODES 

MOOLST 

n 

e 

MOOLST 

72 

c 

MOOLST 

73 

e 

• 

MOOLST 

76 

c 

MOOE  1 

MOOLST 

75 

e 

MOOLST 

76 

c 

MOOLST 

77 

c 

ONEGO  (RAO/SEC)  VPHSE  (KM/SEC) 

M00LS7 

78 

c 

MOOLST 

79 

e 

0.100000  1.000000 

MOOLST 

80 

e 

0.200000  2.000000 

MOOLST 

81 

c 

MOOLST 

82 

c 

MOOLST 

83 

c 

, , 

• 

MOOLST 

84 

c 

. ...  MOOE  2 

MOOLST 

85 

c 

MOOLST 

86 

c 

MOOLST' 

87 

c 

OMEGA  (RAO/SEC)  VPHSE  (KM/SEC) 

MOOLST 

88 

c 

. . - 

MOOLST 

89 

c 

0.100000  2.000000 

MOOLST 

90 

c 

0.150000  2.500000 

MOOLST 

91 

c 

0.200000  3.000000 

MOOLST 

92 

c 

HOOLST 

93 

c 

MOOLST 

94 

c 

ENO 

OF  EXAMPLE  .....  

MOOLST 

95 

c 

. 

MOOLST 

96 

e 

MOOLST 

97 

e 

.. —PROGRAM  FOLLOMS  BELOW— — 

MOOLST 

98 

e 

• 

MOOLST 

99 

e 

MOOLST 

100 

c 

MOOLST 

101 

c 

VARIABLE  DIMENSIONING 

MOOLST 

102 

DIMENSION  KFIN  { 1 ) , OMMCC (1) ,V»MOO(ll ,KST(1) 

MOOLST 

103 

DIMENSION  AKI(IOOO) 

MOOLST 

104 

' 

WRITE (6. Ill  MOFNO 

MOOLST 

105 

11 

FORMAT (1H1.25X , 19HTARULATICN  OF  FIRST,  16, 6H  MOOES! 

MOOLST 

1C6 

DO  100  11*1, MOFNO  . . . ... 

MOOLST 

107 

WRITE  (6.21)  II 

MOOLST 

108 

21 

FORMAT (1H  /// , 1H  »35X,  SHMCOE  .13//,  IN  ,12X .15HOMEGA  (RAO/SEC), 

MOOLST 

1C9 

U0X.14HVFHSE  (KM/SCC) .10X.15MAKZ  (NEPERS/KM)  /) 

MOOLST 

110 

K1*KSTCIT) 

HOOLST 

111 

K2  *KPIN(II) 

MOOLST 

112 

OO  100  JSK1.K2 

MOOLST 

113 

OMEGA*OMMOO(J) 

MOOLST 

114 

VPHSE»VPMOOtJ) 

MOOLST 

115 

AKIPR*AXI(J) 

HOOLST 

116 

..51 

FORMAT  (1H  ,12X,F15.8,10X,F14.8.10X,5E12.51 

MOOLST 

117 

WRITE  (6.31)  ONEGA, VPHSE, AKIPR 

HOOLST 

118 

100 

CONTINUE 

MOOLST 

119 

RETURN 

MOOLST 

120 

•ENO-. 

MOOLST 

121 

~r~ 


nnononnnnnonnnnnnnnonnnnnnnnnnnnn opooooooooooonooooooo ooooooooooooooooo 
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SUBROUTINE  MPOUT  COMi ,QM2 , Vi* V2 ,*CM,NVP, INHOOE .ON, V, THETtO 
WOUT  (SUBROUTINE)  7/19/65  CAST  CARO  IN  0E£<  IS 

—•ABSTRACT— 

TITLE  - NBCUT  ♦ 

TABULATION  CF  NOPFAL  MODE  DISPERSION  FUNCTION  SIGN  AT  POINTS 
IN  A RECTANGULAR  REGION  OF  FREQUENCY  - PHASE  VELOCITY  FLAKE 

THE  VECTOR  V 0*  PHASE  VELOCITIES  IS  CONSTRUCTED  BY  TAKIN 
VALUES  AT  INTERVALS  OF  t (V2-V1) /(KVP-1 ) > FROM  V?.  DOWN  TO 
VI.  SIMILARLY  VECTOR  OH  of  ANGULAF.  FREQUENCIES  IS  CON- 
STRUCTED 8Y  TAKING  VALUES  AT  INTERVALS  OF  ((0H2-CH1)/ 
(NOM-1))  FROM  CHi  UP  TO  OM2.  NEXT,  MATRIX  INMOOE  IS  CON 
STRUCT? 0 WITH  KV°  PONS  ANO  NON  COLUMNS.  SINCE  INHOCS  IS 
• STOREO  IN  VECTOR  FORM,  COLUMN  AFTER  COLUMN,  ELEMENT  J IN 
ROM  I IS  RE°RSS£NT£0  AS'  INHOOE ( (J-t I *NVB  ♦ I).  THE  VALV 
..  OF  THIS  ELEMENT  IS  OcTEe.MINEO  BY  CALLING  SUBROUTINE  NMOF 
TO  EVALUATE  THE  NORMAL  MODE  DISPERSION  FUNCTION,  FPP,  FO 
FREQUENCY  OMTJ)  ANO  PHASE  VELOCITY  Vtl).  IF  FPP  OOES  NO 
EXIST,  THE  ELEMENT  IS  SET  EQUAL  TO  5,  OTHERWISE  THE  ELE 
HcNT  MILL  OE  1 TIMES  THE  SIGN  OF  FFP, 

LANGUAGE  - FORTRAN  IV  (363,  REFERENCE  MANUAL  C2S-6515-6) 

AUTHORS  t A. 0. PIERCE  ANC  J. POSEY,  H.I.T.t  JUNE. 1968 

•••-USAGE*-"* 

VARIAOLSS  OH, V, INMODE  MUST  BE  tUMENSIONEO  IN  CALLING  PROGRAM 
' FORTRAN  SUBROUTINE  NMOFN  (CESCRieEO  ELSEWHERE  IN  THIS  SERIES)  IS 
CALLEO 

FORTRAN  USAGE 

CALL  NPOUT(OM1,OM2, VI, V2,NCM,NVP, INHOOE, OH, V.THETK) 


XNFUTS 

, ONI 
R*6 

‘ 0N2 
...  **6 

VI 

R*6 

V2 

R*6 
NOH 
. . 1*6 

. NVP 
1*6 

TMETK 
. R*6 

OUTPUTS 

. INHOOE 
X*L(0) 


ON 


R*6(Q) 


R*6(0) 


MINIMUM  ANGULAR  FREQUENCY  TO  BE  CONSIDERED  (RACIANS  / St 

ItAXIHUN  ANGULAR  FRCOUENCY  TO  BE  CONSIDERED  (RACIANS  / SE 

.MINIMUM  PHASE  VELOCITY  TO  OE  CONSXOEREO  (KM  / SEC) 

' MAXIMUM  PHASE  VELCCITY  TO  BE  CONSIDERED  (KM  / SEC) 

NUNOER  OF  FPECUENCIES  TO  BE  CONSIDERED  (NO,  OF  ELEMENTS 
IN  OH  ANO  NC.  CF  COLUMNS  IN  INMOOE) 

NUMBER  OF  PHASE  VELOCITIES  TO  BE  CONSIOEREO  (NO.  OF  ELE- 
MENTS IN  V ANC  NO.  CF  ROWS  IN  INHOOE) 

DIRECTION  OF  PHASE  VELOCITY  MEASURED  COUNTER  CLOCKWISE 
FROH  X-AXIS  (SAOIANS)  . 


MATRIX  OF  NORMAL  MODE  DISPERSION  FUNCTION  SIGNS  (SEE 
ABSTRACT  ABOVE  FOR  EXPLANATION  OF  ELEMENT  VALUES) 

VECTOR  OF  NOH  VALUES  OF  ANGULAR  FREQUENCY  AT  EQUAL  INTER 

VALS  FROM  0M1  TO  0M2  INCLUSIVE  (RADIANS  / SEC). 

VECTOR  CF  NVF  VALUES  OF  PHASE  VELCCITY  AT  EQUAL  INTERVAL 

FROM  V2  TO  VI  INCLUSIVE  (KH  / SEC) 


——EXAMPLE—— 


MPOUT 

1 

MPOUT 

2 

NPCUT 

3 

NPOUT 

6 

MPOUT 

5 

NPOUT 

6 

HPOUT 

7 

MPOUT 

8 

MPOUT 

9 

HPOUT 

10 

MPOUT 

11 

HPOUT 

12 

MPOUT 

13 

M«»OUT 

16 

MPOUT 

IS 

HPOUT 

16 

HPOUT 

17 

MPOUT 

IS 

MPOUT 

19 

MPOUT 

20 

MPOUT 

21 

HOOUT 

22 

HPOUT 

23 

MPOUT 

26 

MPOUT 

25 

MPOUT 

26 

NPOUT 

27 

MPOUT 

28 

MPOUT 

29 

MPOUT 

30 

MPOUT 

31 

MPOUT 

32 

MPOUT 

33 

NPOUT 

36 

NPOUT 

35 

HPOUT 

36 

N°OUT 

37 

NPOUT 

38 

MPOUT 

39 

MPOUT 

60 

MPOUT 

61 

MPOUT 

67 

MPOUT 

63 

MPOUT 

Hk 

MPOUT 

*.5 

HPOUT 

66 

MPOUT 

67 

HPOUT 

68 

MPOUT 

69 

MPOUT 

50 

HPOUT 

51 

MPOUT 

52 

MPOUT 

53 

HPOUT 

56 

HPOUT 

55 

MPOUT 

56 

HPOUT 

57 

NPOUT 

58 

NPOUT 

59 

HPOUT 

60 

NPOUT 

61 

HPOUT 

62 

NPOUT 

63 

HPOUT 

66 

MPOUT 

65 

HPOUT 

66 

MPCUT 

67 

NPOUT 

68 

NPOUT 

69 

NPOUT 

70 

NPOUT 

71 

NPOUT 

72 
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c 

CALLING  PROGRAM 

M»our 

73 

c 

DIMENSION  0N(3),V<3),INM00(9> 

MPOUT 

74 

e 

ONI  a 1.0 

MPOUT 

75 

c 

0M2  * 3.0 

MPOUT 

76 

c 

VI  3 i.o 

MPOUT 

77 

c 

V2  » 3.0 

MPOUT 

78 

c 

NOM  3 3 

MPOUT 

79 

c 

NVP  s 3 

MPOUT 

80 

c 

TH£T<  3 0.0 

MPOUT 

81 

c 

. CALL  NPOUT  (OH1. GM2, VI, V2  «NCH«NVP, INM00£«0M, V,7HETK) 

MPOUT 

82 

e 

ENO 

MPOUT 

83 

c 

MPOUT 

84 

c 

UPON  RETURN  FROM  MPOUT,  OM  ANO  V WILL  HAVE  THE  FOLLOWING  VALUES 

MPOUT 

85 

c 

OM  3 1.0  , 2.0  , 3.0 

MPOUT 

86 

c 

V s 3.0  . 2.0  . 1.0 

M"OUT 

87 

c 

EACH  OF  THE  NINE  ELEMENTS  CF  IVMCCE  WILL  OE  -1.  1 OR  5 AS  DETERMINED 

M»OUT 

88 

c 

8Y  THE  NORMAL  HOOE  DISPEPSICN  FUNCTION  (SEE  ABSTRACT  ABOVE) 

MPOUT 

89 

e 

* 

M"OUT 

90 

c 

» • • 

MPOUT 

91 

c 

' ....PROGRAM  FOLLOWS  BELOW-— 

MPOUT 

92 

c 

MPOUT 

93 

c 

MPOUT 

94 

c 

MPOUT 

95 

c 

VARIABLE  DIMENSIONING 

M"OUT 

96 

DIMENSION  OM (1 ) , V (1) . IN M COE (1 ) 

MPOUT 

97 

COMMON  IMAX.CK1Q0)  .VXI(lOu)  . VYI  (1QG>  .MIC  100) 

M"OUT 

98 

c 

MPOUT 

99 

c 

INTERVAL  BETWEEN  SUCCESSIVE  ELEMENTS  OF  OM  IS  DETERMINED 

MPOUT 

100. 

OELCMs (0M2-0M1 ) / CNOM-1 ) 

MPOUT 

1C1 

c 

• 

MPOUT 

102 

c 

INTERVAL  BETWEEN  SUCCESSIVE  ELEMENTS  OF  V IS  DETERMINED 

M"QUT 

1C3 

OELV  * <V2  - VI) / (NV*-1) 

MPOUT 

104 

c 

MPOUT 

105 

c 

VECTOR  V IS  CONSTRUCTED  WITH  V(I)  DROPPING  FROM  V2TO  VI  AS 

I GOES  FRO 

MPOUT 

1C6 

q 

1 TO  NVP 

MPOUT 

107 

Vtl)*V2 

MPOUT 

1P8 

OO  10  1*2, MV" 

MPOUT 

109 

io  v(i)»v(i-i)-aELv 

MPOUT 

110 

c 

MPOUT 

111 

c 

OM(J)  GOES  FROM  OM1  TO  0M2  AS  J GOES  t'ROM  1 TO  NON' 

MPOUT 

112 

00  90  J*l,NON 

M»OUT 

L13 

OMI J)  « OM1  ♦TJ-1) *OELCM 

MPOUT 

114 

c 

• 

MPOUT 

115 

c 

FOR  A FIXED  VALUE  OF  J,  ALL  VALUES  OF  I FROM  1 THROUGH  NV" 

AFE 

CONSIO 

MPOUT 

116 

c 

EREO,  THUS  EVALUTING  COLUMN  J OF  INMOOE 

MPOUT 

117 

00  90  I*!, NV" 

MPOUT 

118 

c 

MPOUT 

119 

c 

TJ  IS  NO.  OF  ELEMENT  IN  VECTOR  REPRESENTATION  OF  INMOOE  WHICH 

CORRES- 

MPOUT 

120 

c 

PONOS  TO  ELEMENT  J Cr  ROW  I IN  MATRIX  FORM  CF  INMOOE 

MPOUT 

121 

IJ* (J-t) *NVP  ♦ I 

MPOUT 

122 

VPHSE»V( I) 

MPOUT 

123 

c 

# 

MPOUT 

124 

c 

NMOFN  IS  CALLEO  TO  EVAUATE  THE  NORMAL  MODE  OISPERSION  FUNCTION 

FOR 

MPOUT 

125 

c 

FREQUENCY  OM ( J)  ANC  PHASE  VELOCITY  VII) 

MPOUT 

126 

CALL  NM0FN(0MCJ),VPHSE,THETK,L,FFP.X) 

MPOUT 

127 

c 

MPOUT 

128 

e 

WHEN  NORMAL  MODE  OISPERSICN  FUNCTION  DOES  NOT  EXIST  (L.EQ.- 

1), 

INMOOE 

MPOUT 

129 

c 

fl%1)  * 5 

MPOUT 

130 

IF  (L  .EC.  -1)  GO  TO  50 

MPOUT 

131 

c 

MPOUT 

132 

c 

WHEN  THE  FUNCTION  COES  EXIST  AND  IS  *PP.  INMOOE CIJ)  » 1*FPP/ABS(FP") 

MPOUT 

133 

INMOOE (IJ)  * l 

MPOUT 

134 

IF  (FPF.LE.0.3)  INMOOE (I J)  * -1 

MPOUT 

135 

GO  TO  80 

MPOUT 

136 

50  INMOOE ( IJ) »5 

MPOUT 

137 

•0  CONTINUE 

MPOUT 

138 

90  CONTINUE 

MPOUT 

139 

RETURN 

MPOUT 

140 

ENO 

MPOUT 

141 

] 


£&> 


r-vi 


1 ' 


B 


I' 
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e 

c 

c 

c 

c 

c 

e 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

e 

e 

c 

c 

c 

c 

c. 

c 

c 

c 

e. 

c 

c 

e 

c. 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

e 


SUBROUTINE  NAMPOE (ZSCRCE.ZOPS, OMEGA, VPHSE.AKI, THETK, AMPLTO, NPRNT) 
NAMPOE  (SU9R0UTX4£)  6/27/64  LAST  CARO  IN  DECK  IS 


——ABSTRACT 

TITLE  -NAHPOE 

PROGRAM  TO  OETERHINE  AN  AMPLITUDE  FACTOR  AMPLTO  OF  A GUIOEO 
NOOE  EXCITEO  BY  A POINT  ENERGY  SOURCE  IN  THE  ATMOSPHERE.  THE 
SOURCE  IS  AT  ALTITUDE  ZSCRCE  KM  AND  THE  COSERVER  IS  AT  ALTITUd 
ZOOS  IN  KN.  THE  PARTICULAR  AMPLTO  COMPUTSO  CORRESPONDS  TO  AN 
ANGULAR  FREOUSNCY  CHEGA  (RAR/SEC) . A “HASE  VELOCITY  V^NSE 
(KM/SEC) , AKO  A PHASE  VELOCITY  DIRECTION  THETK  (RADIANS)  REC- 
KONED COUNTEP-CLCCKAISE  FROM  THE  X AXIS.  PARAMETERS  CEFINING 
THE  AMBIENT  ATMOSPHERE  AP£  PRESUMED  TO  BE  STORED  IN  COMMON. 

THE  NORMAL  MODE  DISPERSION  FUNCTION  NMOF  IS  PRESUMED  TO  VANISH 
. FOR  .APGUMENTS  OMEGA, V«HSE, THETK  , 

THE  ACTUAL  CfFINITICN  OF  AMPLTO  IS  AS  FOLLCHS.  LET  S1IZ)  AND 
S2CZ)  BE  THE  SOLUTIONS  OF  THE  RESIOUAL  EQUATIONS 


0<Si)/0Z  * 
0(S2t/0Z  * 


(AH)*si  * (A12)*S2 
<A21>*$1  ♦ < A22)*S2 


(1-A) 

(1-B) 


WHERE  THE  MATRIX  A IS  AS  COMPUTEO  BY  AAA A ANO  AS  OEFINEO  BY 
A.O.°I£RCE«  J.  COMP.  PHVS.,  VOL.  1,  NO.  3,  FE0.,t967,  P».  343- 
366.  EOS.  11.  THE  ELEMENTS  OF  A SHOULO  BE  CONSIDERED  AS  FUNC- 
TIONS OF  ALTITUDE.  WE  OEFIKS  THE  REDUCED  PRESSURE  ZFN(Z)  AS 

ZFNCZI*  (G/CI*Sl  - C*S2  (21 

WHERE  G IS  ACCELEPATICN  OF  GRAVITY  ANO  C IS  SOUND  SPEEO.  THEN 


S2 (ZSCRCEJ  *ZFN  CZ03S) 


AMPLTO  « (1/2)* 


BOM ( ZSCRCE) * INTEGRAL 

WHERE 

60M(Z)*0MEGA  -KX*VX (Z)  -KT*VY(Z>  . 


(31 


(6) 


IS- THE  DOPPLER  SHIFTSO  ANGULAR  FREQUENCY.  THE  INTEGRAL  IS  1/2 
OF  THE  I-SUei  DEFINEC  BY  A. 0. PIERCE.  J.  ACOUST.  SOC.  AMER.. 
VOL.  37,  NO.  2,  FEB. ,1965,  PP.  211-227,  £0.  (51).'  SFECIFICALL 

INTEGRAL  « (INTEGRAL  OVER  Z FROH  0 TO  INFINITY)  OF 


(BOM* ( (KX*VX*KY*VY> /K)*YFN (Z ) **2 
♦(K*0MEGA/B0M»*3)*ZFN(Z)**Z  f 


(5) 


WHERE  K IS  THE  MAGMTUOE  OF  THE  WAVE-NUM8ER  VECTOR  (KX.KY)  ANO 

YFN(Z)  * (1/C)*S1(Z)  (6» 

PROGRAM  NOTES  *'  

THE  INTEGRAL  IS  COMPUTEC  BY  SUBROUTINE  TOTINT  IN  TWO  PAR 
AS  X3*X7,  THE  FIRST  IS  OBTAINED  BY  CALLING  TOTINT  WITH 
> ■ XT*3,  WHILE  THE  SECONC  IS  OETAINEO  BY  CALLING  TCTINT  WIT 


NAHPOE 

1 

NAHPOE 

2 

NAHPOE 

3 

NAHPOE 

6 

NAHPOE 

9 

NAHPOE 

6 

NAHPOE 

7 

NAHPOE 

e 

NAHPOE 

9 

NAMPOE 

10 

NAHPOE 

11 

HAHPCE 

12 

HAMPOE 

13 

NAHPOE 

It 

NAHPOE 

15 

.NAMPOE 

16 

NAHPOE 

17 

NAHPOE 

IS 

NAHPOE 

19 

NAHPOE 

20 

NAHPOE 

21 

NAHPOE 

22- 

NAMPOE 

23 

NAM°OE 

24 

NAHPOE 

25 

NAMPCE 

26 

NAHPOE 

27 

NAHPOE 

28 

NAHPOE 

29 

NAHPOE 

30 

NAHPOE 

31 

NAMPOE 

32 

NAHPOE 

33 

NAHPOE 

36 

NAMPOE 

35 

NAHPOE 

36 

NAHPOE 

37 

NAHPOE 

38 

NAHPOE 

39 

NAMPOE 

40 

NAHPOE 

LI 

NAHPOE 

42 

NAMPOE 

43 

NAH»oe 

44 

NAHPOE 

45 

NAHPOE 

46 

NAHPOE 

47 

NAHPOE 

4* 

NAHPOE 

49 

NAHPOE 

50 

NAHPOE 

51 

NAMPOE 

52 

NAMPOE 

53 

NAHPOE 

54 

NAHPOE 

55 

NAMPOE 

56 

NAHPOE 

57 

NAMPOE 

58 

NAHPOE 

59 

NAMPOE 

60 

i 
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IT»7.  THE  IT  PARAMETER  GOVERNS  THE  CHOICE  OF  COEFFIMEN 

NAM"OE 

61 

Alt  A2.  A3  RETURNED  TO  TOTINT  QY  SUBROUTINE  USEAS.  FOR 

NAMPOE 

62 

FURTHER  INFORMATION,  SEE  THE  DOCUMENTATION  ON  TCTINT  AND 

NAMPCE 

63 

USEAS. 

NAMPOE 

64 

NAMPOE 

65 

THE  NORMALIZATION  OF  SI  AND  S2  CANNOT  AFFECT  AMPLTO. 

NAMPOE 

66 

HOWEVER,  TOTINT  ACOOPTS  NORMALIZATION  WHERE 

NAMPOE 

67 

SI  ’“SORT <GS) *A12 

NAM>0£ 

68 

S2  «SCRT(GG>*(GG+A11) 

HAMOQE 

69 

AT  THE  SOTTCM  OF  THE  UPPER  HALF  SPACE.  THE  NUMERATOR  OF 

NAMPOE 

70 

£0.(31  IS  ACCORDINGLY  COMPUTED  WITH  SAME  NORMALIZATION. 

NAMPOE 

71 

HERE  GG*SQRT(All**2+Al2*A21), 

NAMPOE 

72 

NAMPOE 

73 

. 

THE  ONLY  80UNCARY  CONDITION  EXPLICITLY  USED  IS  THE  U®PER 

NAMPOE 

74 

BOUNDARY  CONDITION  WHEREBY  DOTH  S1(Z)  ANO  S2(Z)  DECREASE 

NAMPOE 

75 

EXPONENTIALLY  WITH  INCREASING  HEIGHT  IN  THE  UPPER 

NAMPOE 

76 

HALFSOACE.  IF  THIS  CANNOT  BE  SATISFIEO.  THE  PROGRAM 

NAMPOE 

77 

■ RETURNS  AMFLTOsO.  THIS  WOULD  IMPLY  THAT  THE  PCINT 

NAM°DE 

78 

CONSIDERED  IS  PRACTICALLY  IDENTICAL  TO  ONE  WHERE  OMEGA 

.NAMPOE 

79 

IS  THE  CUTOPF  FREQUENCY  FOR  THE  GUICEO  MOOE  UNOER 

NAM»OF 

80 

. CONSIDERATION. 

NAMPOE 

81- 

NAMPOE 

82 

LANGUAGE 

“ FORTRAN  IV  (360,  REFERENCE  MANUAL  CZ9-6515-4) 

NAMPOE 

83 

NAMPOE 

84 

AUTHOR 

« A. 0. PIERCE,  M.I.T.,  JUNE. 1968 

NAM"OE 

85 

NAMPOE 

86 

. 

•—CALLING  SEQUENCE——  ... 

NAH"OE 

87 

* 

NAMPOE 

88 

SEE  SUBROUTINE  PANPflE 

NAMPOE 

89 

oinension  ci(iGC),vyr(ioo).VTicioo).Hi(ioo> 

NAMPOE 

90 

COMMON 

IMAX, Cl, VXI, VYI, HI  (THESE  MUST  BE  IN  COMMON) 

NAMPOE 

• 91 

CALL  NAMPOE (ZSCRCE, ZCeS.0HEGA,V?HSE,THETK,AKPlTO,NPR)iT) 

NAMPOE 

92 

- . . * 

* 

NAMPOE 

93 

—EXTERNAL  SUBROUTINES  REQUIREO . 

NAMPOE 

94 

..  - 

NAMPOE 

95 

TOTINT, 

HMHM, AAAA,USEAS«UeINT,£LINT , S8B3, CAI.SAI 

NAMPOE 

96 

NAMPOE 

97 

(THE  FIRST  THREE  ARE  EXPLICITLY  CALLED.  THE  REMAINING  SUBROUTINE 

NAMPCE 

98 

. _ . ARE  IMPICITLY  CALLED  WHEN  TCTINT  IS  CALLED.) 

NAMPOE 

99 

* 

NAMPOE 

100 

—ARGUMENT  LIST 

NAMPOE 

101 

- 

NAMPOE 

102 

ZSCRCE 

R*L  NO  IMP 

NAM»OE 

103 

ZORS 

R*4  NO  IN" 

NAMPOE 

104 

OMEGA 

R*4  NO  INP 

NAMPOE 

105 

VPH5E 

R*4  NO  INP 

NAMPOE 

1G6 

. THETK 

R*4  NO  INP 

NAN»OE 

107 

AMPLTO 

R*4  NO  OUT 

NAMPOE 

108 

NPRNT 

1*4  NO  INP  

NAMPOE 

109 

NAM»OE 

110 

COMMON  STORAGE  USEO  . , 

NAMPOE 

111 

COMMON 

IMAX. Cl, VXI, VYI, HI 

NAMPOE 

112 

* 

- • ’■  * 

NAMPOE 

113 

IMAX 

1*4  NO  IN" 

NAMPOE 

114 

Cl 

R*4  100  IN" 

NAMPOE 

115 

VXI 

R*4  100  INP 

NAMPOE 

116 

VYI 

R*4  100  INP 

NAMPOE 

117 

HI 

R*4  100  INP 

NAMPOE 

118 

. m „. 

NAM"0E 

119 

INPUTS 

NAMPOE 

120 

NAMPOE 

121 

ZSCRCE 

’HEIGHT  CF  SOURCE  IN  KM 

NAMPOE 

122 

zoas 

^HEIGHT  OF  OBSERVER  ... 

NAMPOE 

123 

OMEGA 

sANGULAR  FREQUENCY  IN  RAOIANS/SEC 

NAMPOE 

124 

nno  an  an  n . nonnnnanonnonnoonnannnnanononnn 


VPHSE 

THCTK 

NPRMT 

IMAX 

cm) 

VXI(I) 
vrici) 
\\H  I) 


AMPLTO 


■PHASE  VELOCITY  IN  KM/SEC 

*F MASE  VELCCITT  DIRECTION  (RADIANS)  RECKONEO 
aPRINT  OPTION  INDICATOR  (SEE  NANI  IN  MAIN  PROGRAM. 

COUNTER-CLOCKWISE  FROM  X AXIS. 

■NUMBER  Of  ATMOSPHERIC  LAYERS  WITH  FINITE  THICKNESS 
■SOUKO  SPEEC  (KM/SEC)  IN  I-TH  LAYER 

*X  COMPONENT  OF  WIND  VELOCITY  (KM/SEC)  IN  I-TH  LAYER 
*Y  COMPONENT  OF  WINC  VELOCITY  (KM/SEC)  IN  I-TH  LAYER 
■THICKNESS  IK  KM  OF  I-TH  LAYER 

—OUTPUTS— 

■AMPLITUDE  FACTOR  FOR  GUXOEO  HAVE  EXCITED  BY  POINT 
ENERGY  SOURCE.  UNITS  ARE  KM»*(-t). 


—EXAMPLE  — 

SUPPOSE  THE  ATMOSPHERE  IS  ISOTHE»NAL  ANO  THERE  ARE  NO  HIKOS.  THE 
THF.r<£  IS  ONLY  CNE  NCOS,  FOR  WHICH  VPHSS’C.  FURTHERMORE.  YFN(Z) 
ANO  St(Z)  ARE  BOTH  ZERO.  THE  ZFMZt  OECRtASES  EXPONENTIALLY 
WITH  HEIGHT  AS  EXP(- (0 .3*G/C**ZM  . THE  RESULTING  ANPLTQ 
SHOULD  RE 

ANPLTO*-f .3*G/C»*2) *EX» (-. 3» (G/C**2> • (ZOBSfZSCRCE) ) 

PEGAROLESS  OF  VALUES  OF  CMEGA  ANC  THETK.  IF  C®l/3  KM/SEC. 

G«.01  KM/SEC**2 « ZOBS*fl.  ZSCRCE»C.  THEN  AMPLTO*  .027  KM**(-1). 


—PROGRAM  FOLLOWS  BELOW— 


DIMENSION  CKlOGt.VX  1(100)  «VYI  (100)  »HI  (100) 

OIMENSION  A(2.2) . EH ( 2 . 2) 

DIMENSION  ZIJZ(2).S1(2),S2(2),VXIJZ(2) .VYIJZCZ) »CIJZ(2I 
OXPEKSICN  STATEMENTS  AOCEO  IK  THE  OE5UG  PROCESS 

OIMENSION  LAVJZ(2).GFL((2).R°P(2.2) ,EM» (100 ,2,2) ,OUMMY(2,P> 
OIMENSION  PHU(100),FHI2(100) 

COMMON  IMAX.CI.VXI.VYI.HI 
SAVE  « Cl ( IMAX • 

IF(AKl  .GE.  X.E-10)  RETURN 


COMPUTE  WAVE  NUM6ER  VECTOR  CCM«ONEKTS 

t CONTINUE  ; 

AKX»(OMEGA/VPHSE»*COS(THETK) 

...  AKV«(OMECA/VFMSr>*SIMTHETX)  .... 

THE  SOURCE  AKO  OBSERVER  LOCATIONS  ARE  NUM9EREO  ACCORCING  TO  HEIGHT 
IFtZSCRCE  .GT.  ZOBS)  GO  TO  10 
ZIJZ(1)=ZSCRC£  _ 

- ZIJZ(Z)»ZOBS 

NSCRCE*1  • . --r  - 

noos=z 

CO  TO  20  : - 

ta  ZIJZ(l>3?OBS 

ZIJZ (2) 3ZSCRCE  . . 

NOBS3 t 
NSCRCE*2 

HE  DENOTE  SI  ANO  S2  AT  BOTTOM  Or  UPPER  HALFSPACE  BY  FI  AND  F2.  THE 
COMPUTATION  IS  AS  FOLLOWS. 

20  IZMAXsZ 
JcIMAXU 
C«CI<J) 

VX3VXI (J) 


121- 


vr«VYi(j» 

CALL  AAAA(ONFGA»AKX»AKY»C»VX»VY»A> 

X*AI1,1»**2*AJ1,2  )*M2,1> 

IF (X  ,LE.  C.C)  r.O  TO  200 
G*SORT (X) 

GRT»S<1RT(G) 

Fl*-GRT*A(t,2)  . . 

F2*GRT*<A(1»1)-»(J) 

C 

C WE  COMPUTE  ZF  REPRESENTING  THE  OOTTOF  OF  THE  UPPER  HALFSPACE 

. ZH*0.0  . . 

IF (IMAX  ,EQ.  01  GO  TO  31 
00  30  XC*1, IMAX 

30  ZH«ZMpHIIIC> 

C 

C HE  STORE  F1P,F2P«ZMP 

31  F1P*F1 
FZP«FZ 

ZHP»ZH  ...  ' „ . 

C 

c computation  cf  LAYJZUZ)  A4C  oeltjjzj  • 

C LAYJZtJZ)  IS  THE  INOSX  OF  THE  LAYER  IN  WHICH  ZIJZCJZI  LIES, 

C WHILE  O'LT(JZ)  is  THE  DISTANCE  OF  ZIJZJJZ)  A20VE  THE  80TT0H  COGS  OF 
C THE  LAYCR 

00  35  JZ*1»2  ....  .. 

LAVJZJJZ»*IMAX»1 

32  CELT ( JZI *ZIJZ<JZ)“ZH 
IF(OELT( JZ1  .GT.  u.O)  GO  TO  35 

XFCLAYJZ (JZ)  .EO.  11  GO  TO  35  . 

LAYJZJJZ J*LAYJZ (JZI “1 

J8>LAYJZ(JZ)  

ZM*ZM-HIJJ8» 

e AT  THIS  POINT  ZM  OENCTES  THE  BOTTOM  OF  THE  LAYJZCJZ)  LAYER 
GO  TO  32 

35.  ZM*ZMP  . ...i...  . 

C 

C COMPUTATION  OF  EH  MATRICES  FOR  ALL  IMAX  LAYERS  OF  FINITE  THICKNESS 
C CHCIF.jp>  FOR  I-TH  LAYER  IS  STOREO  AS  EHPJI,XP,JP> 

00  36  1*1. IMAX  ... 

C«CI(II 

VX«VXI(I»  _ . 

VY*VYI (I 1 

. H*HI (I)  

CALL  HFMMJOMEGA ,AKX, AKY.C, VX,VT,H,EM> 

00  36  I°*l»  2 . . . . . ... _i._ 

00  36  J«*1.2 

36  EMPCI,IP,J»)=EM(I?,JP1  .' _. 

C 

C COMPUTATION  CF  RPP  MATRIX.  THIS  ACCOMPLISHES  THE  SAME  AS  CALLING 
C SU3R0UTINE  RRRR 

RP’Cl.  11*1.0  .. 

RP»(1,  21=0.0 

..  RPPJ2.il  *0.0 

RP»J2. 21*1.0 

00  38  1*1,  IMAX  . 

JASA»IHAX*W 

00  3Z  IB*1,2  . 

. ;00  3Z  J°*l» 2 

3/  OUNMY tIB,J3}*EHO(JASA,IPfll*RF0Jl,JPl*EMPJJASA,IP,21*RPP(2,JP) 
00  38  IP*1,2 

OQ  38  JP=1,2  • 

38  RP“(IP,JP!=OUHHY(I»,JP! 

C 

QUOT  * AaSlRPP<l,l»l/<L8S(RP»(l,lll*ABS(RPP(l,2)l*«8S(RFPt2.111 


NAMPOE 

NAM»OE 

NAMPOE 

NAMPOE 

NAMPOE 

NAHPOF 

NAMPOE 

NAMPOE 

NAM"OE 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAM»OE 

NAMPOE 

NAMPOE 

’NAMPOE 

NAMPOE 

NAMPOE 

MAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAHPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAHPOE 

NAHPOE 

NAMPOE 

NAMPOr 

NAMPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAH«OE 

NAHPOE 

NAMPOE 

NAMPOE 

NAHPOE 

NAM°OE 

NAMPOE 

NAMPOE 

NAMPOE 

NAH»OE 

NAMPOE 

NAMPOE 

NAMPOE 

NAHPOE 

NAM“0£ 

NAMPOE 

NAHPOE 

NAHPOE 

NAHPOE 

NAMPOE 

NAMPOE 

NAMPOE 

NAHPOE 

NAMPOE 

NAMPOE 


189 

190 

191 

192 
1*3 

104 

195 

196 
19Z 

198 

199 

200 
201 
202 

203 

204 
2C5 
206 
20/ 
208 

209 

210 
211 
212. 

213 

214 

215 

216 
21/ 
218 

219 

220 
221 
222 

223 

224 

225 

226 
22/ 
228 

229 

230 

231 

232 

233 

234 

235 

236 
23/ 

238 

239 

240 
2<*1 
24? 

243 

244 

245 

246 
24/ 

248 

249 

250 

251 

252 


122 


< 


i 


1 


1 4A8S<PeP<2.2n> 

KAHPOE 

253 

JF  t OUOT  .LT.  O.t  > 60  TO  123 

NAHPQE 

25* 

F290T=F2P/RPP(ltlJ 

NAMPOE: 

255 

CO  TO  150 

nahpoe: 

256 

120 

OUOT  3 AeS<RP»(l,2))/(AeS<RPO(l,l))4A8S<RPP<l,2))4A8S<RPP<2.1M 

NAHPQE 

257 

1 4fiOS(RPP(2*Z) ) ) 

NAMPOE 

256 

IF  < OUOT  .LT.  0.1  ) GO  TO  130 

NAMPOE 

259 

F2nOt*-FlP/RP»(l,2> 

NAMPOE 

260 

60  TO  150 

NAMPOE 

261 

130 

F290T=RPP  <2.1I*F194RFP<2.2>*F2P 

NAMPOE 

262 

153 

F200r*F280T 

NAMPOE 

263 

PHIl(l)  -0 .0 

NAMPOE 

26* 

PHI2(1) SF280T 

NAMPOE 

265 

KTOUPa'l 

NAM»OE 

266 

K*IMAX»1 

NAMPOE 

267 

PMI1(K>»F1P 

NAMPOE 

266 

PHI2COSF2P 

NAMPOE 

269 

331 

T1*PHI1(K) 

NAMPOE 

270 

T2*PHI2(K) 

NAMPOE 

271 

K«K-1 

NAMPOE 

272 

IF tK  .SO.  11  60  TO  *00 

NAMPOE 

273 

C«CI(K) 

NAMPOE 

27* 

VX*VXl (K> 

NAMPOE 

275 

VY»VYI«> 

NAMPOE 

276 

CALL  AAAACOMcGA.AKX.AKY.C.VX.VY.A) 

NAM»OE 

277 

X«A<i.l>**24A<i,2)*A<2,l> 

NAMPOE 

278 

IF CX  .6T.  0.0)  GO  TO  3*3 

NAMPOE 

279 

333 

PHI1<K)=EM<MK.1, lt*T14£P«(K.1.2)*T2 

NAMPOE 

2P0 

PHZ2 (K) “EH3  tK»2.1)*T14EMatX»2.2)*T2 

NAMPOE 

281 

CO  TO  331 

NAM“OE 

282 

3*0 

01*A(1,1)*T14A<1.2)*T2 

NAMPOE 

283 

02*A(2»U*Tl4A(2,2l*T2 

NAMPOE 

28* 

IF  < 01  .LT.  O.C  .ANG.  T1  .LT.  0.0)  GO  TO  3*1 

NAMPOE 

285 

IF  ( 01  .CT.  0.0  .ANO.  T1  .GT.  0.0  ) 60  TO  3*1 

NAMPOE 

266 

IF  ( 02  .LT.  0.0  .ANG.  T2  .LT.  0.0  ) GO  TO  3*1 

NAMPOE 

287 

IF  <02  .GT.  O.C  .ANO.  12  .GT.  0.0  > 60  TO  3*1 

NAMPOE 

288 

* 

GO  TO  333  ... 

NAMPOE 

289 

3*1 

CONTINUE 

NAMPOE 

290 

C AT 

THIS  POINT  THE  CURRENT  VALUE  OF  K IS  NOT  2ERC  OR 

ONE 

nlmpoe 

291 

KTOUP=K 

NAMPOE 

292 

* 

00  360  K*2»KTOUP 

NAMPOE 

293 

. 

JCT«K-1. 

NAM»OE 

29* 

Tl*PHIUJETI 

NAMPOE 

295 

T2«PNI2(JET) 

NAMPOE 

296 

PHIl(K) a£MP ( JET .2.2) *T1»EM°  f JET »1»2)*T2 

NAHPOE 

297 

360 

•HI2<X)a*eNP<JET,2,l)*Tl4EHP<JiT«l,l)*r2 

NAHPOE 

298 

*00 

KZC1  * 0 

NAM«OE 

299 

NZC2  a 0 

NAMPOE 

300 

IAP1MX  » 1 

NAMPOE 

301 

IA°2MX  * 1 

NAMPOE 

302 

API  MX  « A8S(PHI1 (1) ) 

NAMPOE 

303 

AP2MX  a ABS  CPHI2  f 1) ) 

NAMPOE 

30* 

00  *07  LNH1*1»  IMAX 

NAMPOE 

305 

. 

LN  a LNN1  4 1 

NAMPOE 

306 

AP1P  a ACS( PHtl (LN) ) 

NAMPOE 

307 

IF  < A PIP, LE. API NX)  GO  TO  *03 

NAMPOE 

3CS 

IAP18X  a tN 

NAMPOE 

309 

APlMX  « AP1P 

NAMPOE 

310 

*03 

AP2P  a ABSt PHI2 (LN) ) 

NAMPOE 

311 

IF’ (AP2P,LE.A°2NX)  GO  TO  *05 

NAMPOE 

312 

AP2NX  * AP2P 

NAMPOE 

313 

IAP2HX  a LN 

NAMPOE 

31* 

*05 

IF’ t ( PMIl  (LNKD  *PHIl  (LM).LT.O.O)  NZC1  = NZCl  *■ 

1 

NAMPOE 

315 

IF  <<PHI2<LNMl)»PHI2ILN)).LT.0.3)  NZC2  a NZC2  ♦ 

1 

NAMPOE 

316 

on*  no  noon  o o 


407 

CONTINUE 

NAMPOE 

317 

R1  « PHIKIAPIMXI/AP2MX 

NAMPOE 

318 

R2  * PHI2(IAP2MXI/AP2MX 

NAMPOE 

319 

R3  « PHI2(1)/AF2MX 

NAMPOE 

320 

HRITE  (6.1,991  OMEGA.VPHSE. IAPlMX.Rl.NZClt IAP2MX.R2.NZC2.R3 

NAMPOE 

321 

409 

FORMAT  (1H  . 2F1 2.5.9X.I3.F12.5.9X.I3.9X.I3.P12.S. 9X. I3.F12. 

51 

NAMPOE 

322 

415 

OO  450  JZ»1.2 

NAMPOE 

323 

I0A*L4YJZ(JZ) 

NAMPOE 

324 

C«CI(IOAI 

NAMPOE 

325 

VX*VXI (IOA) 

NAMPOE 

326 

VY*VYI(IOAI  

NAMPOE 

327 

CIJZ(JZl=CI(IOA) 

NAMPOE 

328 

vxuz(JZJ=vxi(inA) 

NAMPOE 

329 

VVtJZ(JZI=VYI(IOA) 

NAMPOE 

330 

IP(I0A  .EO.  IMAXMI  GO  TO  420 

NAMPOE 

331 

IPCIOA  .LE.  KTOUcl  GO  TO  430 

NAMPOE 

332 

JET*IOA*l  

NAMPOE 

333 

H«HI(IOA)-OEuTtJZ) 

NAMPOE 

334 

CALL  NKMM(ONCGA,Aj<X,AKY,C.VX,VY.H,EMI 

.NAMPOE 

335 

S1(JZ)*£M(1,1)*PHI1  (JEn+£M(t,2l»»HI2  (JETT 

NAMPOE 

336 

S2(JZM£M(2.1»*PHI1(JET)*EH(2,2>*PHI2IJET) 

NAMPOE 

337 

GO  TO  450 

NAMPOE 

338 

420 

EON=EXP(-G»OELT(JZ»l  .... 

NAMPOE 

339 

S1(JZ1*F1P*E0N 

NAMPOE 

340 

S2(JZ)*F2P*EON 

NAMPOE 

341- 

CO  TO  450 

NAMPOE 

342 

430 

H*OELT( JZI  .... 

NAMPOE 

343 

CALL  MMMM(OMEGA.AKX»AKY»C«VX»VY»H.EMl 

NAMPOE 

344 

St(J2)*EM(2f2)*PHIl(IOAI-£M(l»2MPHI2(IOA)  

NAMPOE 

345 

S2 ( JZI *-EH(2, 1 1 ‘PHIX ( I0A J ♦£*(!, 1)*PHI2 (IOA) 

NAMPOE 

346 

450 

CONTINUE  ..  ...  . , 

NAMPOE 

347 

NAMPOE 

348 

AT.  THIS  POINT  Sl(JZI,S2(JZI.CUZrjZ).  ETC.  ARE  STORED  FOR  JZ*1 

ANO  2. 

NAMPOE 

349 

HE 

COMPUTE  THE  OOPOLER  SHIFTED  ANGULAR  FREQUENCY  AT  SOURCE  ALTITUDE . 

NAMPOE 

350 

100 

0OMsOMEGA-AKX»VXIJZ(NSCRCE)-AKY*VYIJZ(NSCRCE) 

NAMPOE 

. 351 

NAMPOE 

352 

HE 

COMPUTE  ZFH  AT  OPSSRVER  ALTITUDE 

NAMPOE 

353 

ZPN*(.0098/CIJZ(NO9SII*Sl(NO3SI-CIJZ(NOBSI*S2(NOBS) 

NAMPOE 

354 

NAMPOE 

355 

MERE  HE  TAKE  THE  ACCELERATION  CF  GRAVITY  TO  BE  .0098  KH/SEC**2. 

NAMPOE 

356 

NAMPOE 

357 

COMPUTATION  CF  INTEGRALS 

NAMPOE 

358 

IT«3  

NAMPOE 

359 

CALL  TOTINT(OMEGAfAKX»4KY»IT»L»X3»PHIl»PHI2).  . 

NAMPOE 

360 

IP(L  .EQ.  -11  GO  TO  203  ' 

NAMPOE 

361 

IT«7 

NAMPOE 

362 

CALL  TCTINT (OMEGA, AKX.AKY. IT, L.X7» PH 11 , PH 121 . . 

NAMPOE 

363 

IFIL  .£0.  -1)  GO  TO  200 

NAMPOE 

364 

NAMPOE 

365 

PINAL  ANSWER 

NAMPOE 

366 

AMPLTOs  O.S*SZ(NSCRCE)*ZFN/( (X3*X7I •ROM)  

NAMPOE 

367 

CHIMAXI  * SAVE 

NAMPOE 

368 

RETURN 

NAMPOE 

369 

NAMPOE 

3ZO 

IP 

YOU  ARRIVE  HERE.  THE  UP»ER  BOUNDARY  CONDITION  COULO  NOT  OE  SATISFI 

NAMPOE 

371 

200 

AHPLT0=0.C 

NAMPOE 

372 

CKIMAXl  s 1.E5 

NAMPOE 

. 373 

GO  TO  1 

NAMPOE 

374 

NAMPOE 

375 

' CNO"  " 

NAMPOE 

376 

jr-» 
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SUBROUTINE  NNOFN<OHEGA» VPHSE»THETK»L»FPP»IO 

NMOFN 

1 

c 

NNOFN  (SUBROUTINE!  7/25/68  LAST  CARO  IN  OECK  IS 

NMOFN 

2 

e 

ABSTRACT- 

NMOFN 

3 

e 

NMOFN 

4 

e 

NMOFN 

5 

c 

TITLE 

- NMOFN 

N«OFN 

6 

c 

SUBROUTINE  TO  COMPUTE  THE  NORMAL  MODE  DISPERSION  FUNCTION  FPP 

NMOFN 

7 

e 

FOR  GIVEN  ANGULAR  FREQUENCY  OMEGA,  PHASE  VELOCITY  MAGMITUCE 

NMOFN 

8 

c 

VPHSE  ANO  PHASE  VELOCITY  OIPECTION  THETK.  FPP  SHOULD  VANISH 

NMOFN 

9 

c 

IF  BOTH  UPP'P^NO  LCWER  POUNOARY  CONOITIONS  ARE  SATISFIED  FOR 

NMOFN 

10 

c 

THE  SOLUTIONS  OF  THE  SESIOUAL  EQUATIONS 

NMOFN 

11 

c 

NMOFN 

12 

c 

O(PMXl) /OZ  a A(1,1)*PHI1(2)  ♦ A (1,2) *PHI2(Z) 

NMOFN 

13 

c 

NMOFN 

14 

c 

0(PHI2)/OZ  a A (2,1) *PHIt ( 2)  ♦ A { 2,2) *PHI2 (2) 

NMOFN 

IS 

c 

NMOFN 

16 

c 

HHEPE  THE  ELEMENTS  CP  THE  MATRIX  A VARY  WITH  HEIGHT  2.  BUT  ARE 

NMOFN 

17 

c 

CONSTANT  IN  EACH  LAYER  OF  A MULTILAYER  ATMOSPHERE.  THE  ELSMEN 

NMOFN 

18 

c 

OF  A ARE  FUNCTIONS  CF  OMEGA,  AKX  ANO  AKY.  AS  OESCRIBEO  IN 

NMOFN 

19 

c 

SU9R0UTINE  AAAA  WHERE  ...  

NMOFN 

20 

c 

NMOFN 

21 

c 

i»KX*ONEGA*CQS(THETO/VPHSE 

NMOFN 

22 

c 

NMOFN 

23 

c 

AKY»OMSGA*SXN(THETK)/VPHSE  .i.  . . 

NMOFN 

24 

c 

NMOFN 

25 

c 

THE  FUNCTION  FPP  IS  CEFINEO  AS  THE  VALUE  OF  PHI1  AT  THE  GP0UN3 

NMOFN 

26 

c 

(2*0)  WHEN  (1)  THE  UPCER  OOUNOAOY  CONDITION  OF  PMH  ANO  PHI2 

NMOFN 

27 

c 

OECPEASIHG  *X°ONcNTIALLY  WITH  HEIGHT  IN  Th£  UPPER  HALFSPACE 

NMOFN 

28 

c 

IS  SATISFIEC,  ANO  (2)  »HU  ANO  PHI2  AT  THE  BOTTOM  OF  THE  UPPER 

NHOFN 

29 

J 

HflLFSFACE  ARE  GIVEN  SY  A(l,2>  AND  -tr,*A(l,l>>  WHERE 

NMOFN 

30 

c 

G*SORT(A(l,ll»*2*A(1.2)*A(2.1>).  THE  ELEMENTS  OF  A HERE  A*E 

NMOFN 

31 

c 

• 

THOSE  APPROPRIATE  TO  THE  UPPE®  HALFSPACE.  CONOITIONS  (1)  ANO 

NMCFN 

32 

c 

(2)  ARE  NOT  INOEPENCENT.  •‘CONOITIOH  (1)  IMPLIES  that  G»*2  ,GT. 

NMOFN 

33 

c 

ANO  CONOITICN  (2)  WITH  r,**2  POSITIVE  IMPLIES  (1).  IF  G**2  IS 

NMCFN 

34 

c 

NEGATIVE,  FPP  OOES  NOT  EXIST  AN!)  L*-l  IS  PETU»MEO.  OTHERWISE 

NMOFN 

35 

c 

. L*l  IS  RETURNED,  

NMOFN 

36 

c 

’ * 

NMOFN 

37 

c 

PROGRAM  NOTES  ...  _ 

NMOFN 

38 

c 

- 

NMCFN 

39 

c 

THE  PARAMETERS  CE PINING  THE  MULTILAYER  MOOEL  ATMOSPHERE 

NMOFN 

40 

c 

ARE  PRESUMED  TO  BE  STOSEO  IN  COMMON. 

NMOFN 

41 

c 

N 

NMOFN 

42 

c 

THE  SUPROUTINE  RRRP  IS  USED  TO  GENERATE  THE  MATRIX  R"P 

NMOFN 

43 

c 

WHICH  CONNECTS  SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS  AT 

NMOFN 

44 

c 

THE  BOTTOM  OF  THE  UPPER  HALFS“ACE  TO  SOLUTIONS  AT  THE 

NMQFN 

45 

c 

* 

GROUND.  IN  TERMS  OF  THIS  MATRIX,  THE  NMOr  IS  GIVEN  BY 

NMOFN 

46 

c 

. 

NMOFN 

47 

c 

FPP*  RPP(l,i)*AU,2)-RF®Cl,2)*(GfA(l,l)) 

NMOFN 

48 

c 

. 

NMOFN 

49 

c 

LANGUAGE  - FORTRAN  IV  (360.  REFERENCE  MANUAL  C22-6515-4) 

NHOFN 

50 

c 

NMOFN 

51 

c 

AUTHOR 

- A. O. PIERCE.  M.I.T.,  AUGUST, 1968  . _ 

NMOFN 

52 

e 

NMOFN 

53 

c 

-—CALLING  SEQUENCE . 

NMCFN 

54 

c 

NMOFN 

55 

c 

SEE  SUBROUTINES  LNGTMN. WIDEN, MPOUT 

NMOFN 

56 

c 

DIMENSION  Cl  (ICC  J.VXl  (100  » .WI  (100)  .HI  (100) 

NMOFN 

57 

c 

COMMON  IMAX»CI»VVI»VYI,MI.  (THESE  MUST  QE  STOPEO  IN  COMMON) 

NMOFN • 

59 

c 

CALL  NMOFN(OMSGA,VFHSE.THOTk;»L.*00.K) 

NMOFN 

59 

c 

NNOFN 

60 

c 

•—EXTERNAL  SUBROUTINES  REQUIRED— 

NNOFN 

61 

c 

. 

nnofh 

62 

c 

rrrr.mhmm.aaaa.cai.sai 

NMCFN 

63 

c 

NMOFN 

64 

no  no  no 
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RETURN 

C 

NNOPN 

128 

NMOFN 

129 

C GUSQ  IS  GREATER  THAN  ZERO 

NHDFN 

130 

It  L«1 

NMOFN 

131 

CU*SORT(GUSQ) 

NMOFN 

132 

e 

NMOFN 

133 

C COMPUTATION  CF  RPP  MATRIX 

NMOFN 

134 

CALL  RPR.R  (OMEGA  »AKX«AKY«  °**P«K> 

c 

NMOFN 

13S 

NMOFN 

136 

C COMPUTATION  OF  FPR 

NMOFN 

137 

FPP  « RFF (L  ? 1>  * A (lt2)  - PP°(l»2l*CGU*A(l»il> 

NMOFN 

138 

C 

NMOFN 

139 

RETURN  ' 

NMOFN' 

140 

END 

NMOFN 

141 

I 


t 
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SUDPOUTINE  NXMCCF (IST,JST,NOH, NVS« INMOOE* IPNO,JFND«K) 

DIMENSION  INKOOE(l) 

NXMOOE  (SUGROUTINE)  6/24/68  LAST  CARO  IN  DECK  IS 


— — ABSTRACT— — 

TITLE  - NXMOOE 

PROGRAM  TO  FIND  A POINT  WITH  COORDINATES  mFNO,  J=JFN0  IN  AN 
ARRAY  WITH  NOM  COLUMNS  ANO  NtfP  ROWS.  FOUND  PCINT  CORFESPCNOS 
TO'  STARTING  POSITION  FOR  CALCULATION  OF  ohASE  VELOCITY  VERSUS 
FREQUENCY  OF  A PARTICULAR  GUIDED  HOOE.  A TAQLE  OF  VALUES  OF 
THE  SIGN  OF  THE  NORMAL  MODE  CISPERSIGN  FUNCTION  IS  PRESUMED 
TO  BE  STOSEC  AS  INMCOE (( J-l) *NVP*I)  FOR  EACH  °OINT  CI.J)  IN  TH 
ARRAY.  OIFFCSENT  COLUMNS  (J)  CORRESPOND  TO  DIFFERENT  FREQUEN- 
CIES WHILE  DIFFERCNT  ROWS  (I)  CORRESPOND  TO  DIFFERENT  PHASE 
VELOCITIES.  THE  SEARCH  PROCEEOS  FROM  AN  INITIAL  POINT  (IST.JS 
TO  SUCCESSIVE  ADJACENT  POINTS  HAVING  THE  SAKE  INMOOE  AS  THE 
STARTING  POIM.  THE  DETERMINATION  OF  (IFND.JFNCI  IS  SUBJECT  T 
THE  FOLLOWING  RULES. 

1*  IT  MUST  LIE  BELOW  OR  TO  THE  LEFT  OF  A POINT  WITH 
OPPOSITE  INMOCE 

2.  IF  MUST  BE  THE  HIGHEST  POINT  (LOWEST  I)  IN  THE  REGIO 

SATISFYING  CONDITION  1 . . 

3.  IF  MORE  THAN  1 POINT  SATISFY  1 AND  2,  THEN  THE  FOINT 
OETERNINEO  IS  THAT  FURTHEST  TO  THE  LEFT. 

6«  ONLY  POINTS  IK  THE  RECTANGLE  ARE  CONSIDERED 

THE  COMPUTATION  ASSUMES  RFGION  OF  SUCCESSIVELY  AOJACENT  "OINTS 
HAVING  SAKE  INMOOE  IS  SIHPLY  CONNECTED  AND  THAT  PHASE  VELOCITY 
* • CURVES  8ENC  OCWNWARCS.  I.E..  C(V»J/D(OMI  .LT.  3.  (THIS  CAN  DE 

THE  CASE  °ROV  10ING  VP  IS  GREATER  THAN  THE  MAXIMUM  WIND 
VELOCITY.)  IP  THE  PCINT  IS  FOUNO.  K*l,  IF  NOT  FOUNO.  K*-l. 

LANGUAGE  - FORTRAN  IV  (360.  RCFERENCE  MANUAL  C28-6515-4) 

AUTHOR  • A. 0. PIERCE,  K.I.T.,  JUNE, 1968. 

——CALLING  SEQUENCE——  . 

SEE  SUBROUTINE  ALLMOC 

0IMENS10K  INMOOE (1)  (VARIABLE  DIMENSIONING) 

CALL  NXHOOE  (1ST, JST,NCM,NVP\' INMCOE, IFNO* JFND»K) 

NO  EXTERNAL  SUBROUTINES  ARE  REQUIRED.. 

—ARGUMENT  LIST 


1ST 

1*6 

NO 

IN8 

JST 

1*4 

NO 

INP 

NON 

1*4 

NO 

INP 

NVP 

1*4 

NO 

INP 

INMOOE 

1*4 

VAR 

INP 

IFNO 

1*4 

NO 

OUT 

JFNO 

1*4 

NO 

OUT 

K 

1*4 

NO 

OUT 

NO  COMMON  STORAGE  USEO 


—INPUTS  — 

*ROW  INDEX  OF  START  POINT 


NXHOOE 

\ 

NXMOOr 

2 

NXHOOE 

3 

NXMOOE 

4 

NX MODE 

5 

NXHOOE 

6 

NXHOOE 

7 

NXHOOE 

8 

NXHOOE 

0 

NXHOOE 

10 

NXHOOE 

11 

NXHOOE 

12 

NXMOOE 

13 

NXHOOE 

14 

NXHCOE 

15 

NXHOOE 

16 

NXHOOE 

17 

NXHOOE 

18 

NXHOOE 

19 

NXHOOE 

20 

NXHOOE 

21 

NXMOOE 

.22 

NXHOOE 

23 

NXMOOE 

24 

NXHOOE 

25 

NXHOOE 

26 

NXHOOE 

27 

NXMOOE 

28 

NXHOOE 

29 

NXHOOE 

30 

NXMOOE 

31 

NXMOOE 

32 

NXMOOE 

33 

NXHOOE 

34 

NXHCOE 

35 

NXMOOE 

36 

NXMOOE 

37 

NXMOOE 

38 

NXHOOE 

39 

NXMOOE 

40 

NXHOOE 

61 

NXHOOE 

42 

NXHOOE 

63 

NXHOOE 

64 

NXHOOE 

45 

NXHOOE 

46 

NXHOOE 

47 

NXHCOE 

48 

NXHOOE 

49 

NXHOOE 

5(! 

NXHOOE 

51 

NXHOOE 

52 

NXHOOE 

53 

NXHOOE 

54 

NXHOOE 

55 

NXHOOE 

56 

NXHOOE 

57 

NXHOOE 

58 

NXHOOE 

59 

NXHOOE 

60 

NXHOOE 

61 

NXHOOE 

62 

NXHOOE 

63 

NXHOOE 

64 

NXHOOE 

65 

upoogpooooooooouoouoooaooaogociaoup 
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jsr 

NON 

NVP 

INKOOE(L) 


IFNO 

JFNO 

K 


•COLUMN  INCEX  OF  START  POINT 
•NO.  OF  COLUMNS  OF  ARRAY 
=N0.  OF  ROWS  ..OF  ARRAY 

•SIGN  OF  NCPMAL  MODE  OIS°ERSION  FUNCTION.  1 IF  °0S.» 
-1  IF  MEG.,  5 IF  IT  DOESN’T  EXIST.  LET  I=L  HOD  NVP, 
J*<L*I)/NV?+1.  INHOOE IS  SIGN  OF  NMOF  FOR 
ONEGA-OH(J).  °MASE  VEL.  3VP(I>,  WHERE  OM(J)  .GE.  0M( 
ANfl  VP<I)  iLE.  VP<I-1>.' 

—OUTPUTS—  ' 

t . _ a ■ 

*<?QW  INCEX  CP  FOUND  POINT 
•COLUMN  INCEX  OF  FOUND  “OINT 

•FLAG  IKCICATING  IF  POINT  UFNQ.JFNOl  IS  FOUND.  1 IF 
YES.  -1  IF  NO. 


——EXAMPLE—— 

SUPPOSE  THE  ARRAY  OF  INNCOE  VALUES  IS  AS  SHOWN  BELOW 


NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMCOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOCE 

NXHOOE 

NXMCOE 

NXMOOE 

NXHOOE 


3 IF ( 10 

THE  POINT  t 1ST, JST)  LIES  IN  THE  ARPAY  AND  THE  NOPMAL  HCOE  DISPERSION 
FUNCTION  EXISTS  AT  THIS  POINT  WITH  A SIGN  10.  WE  FIRST  GO  UP  UNTIL 
A OIFFEKENT  INHQOE  IS  ENCCUNTEREC  OR  UNTIL  WE  REACH  I»1 

I«IST  * „ 

J»JST 

.10  IF<  I .EQ.  1>  GO  TO  30  ..  J 

X«I-1 

J10*<J-1)*NVP+I  . . 

ICHK’INMCOE  < JlO ) 

..  ..IFC  ICHK  .EQ.  10)  GO  TO  10  

i«m 

THE  CURRENT  I IS  NOT  1.  IF  THE  ICHK  OF  THE  POINT  ABOVE  IS  NOT  5.  WE 

MOVE  TO  THE  LEFT.  „ . . 

15  IFt  ICHK  .EQ.  51  GO  TO  50 

IF!  J .EQ.  11  GO  TO  20  ... 

J«J*l 

..  J10*tJ-ll*NV°*I  ...  

ICHK3 INN COE (J10  > 

IF  THE  ICHK  OF  THE  CONSIOEREO  NEW  POINT  IS  10,  WE  TRY  TOGO  HIGHER 

AGAIN.  

XFtICHK  .EQ.  10)  GO  TO  10 
J*4»l 


NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXHOOE 

NXMOOE 

NXHOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXHOOE 


66 

67 

68 

69 

70 

71 

72 

73 
76 

75 

76 

77 

78 

79 

80 
81 
82 
83 
66 


NXMOOE 

85 

NV°»8,  NOM»ll 

NXMOOE 

86 

NXHOOE 

87 

5— 

IF  ISTse.JST--5  THEN 

IFNC33. JFN032.Ks1 

NXMOOE 

88 

55  — 

IF  IST*2.J3Ts5  THEN 

IFNC®1. JFN0*9»KS1. 

NXMOOE 

89 

55*“ 

IF  IST=3.JSrir  THEN 

IFHC®3» JFN032»K3“1 

NXMCOE 

90 

55— 

IF  IST*8.JST*Z  THEN 

<=-l 

NXMOOE 

91 

55** 

IF  ZST*2.JST311  THEN 

K*-l 

NXMOOE 

92 

55— 

NXHOOE 

93 

NXMOOE 

96 

. 

NXMOOE 

95 

—PROGRAM  FOLLOWS  BELOW—. 

NXMOOE 

96 

NXMOOE 

97 

— — 

• . mm  , — j 

. 

NXMOOE 

98 

NXMOOE 

99 

,GT. 

NVF  .OR. 

JST  .GT.  NON!  GO  TO  100 

NXMOOE 

100 

L 1 *NV0»IST 

NXMOOE 

101 

:tJ9i 

NXMOOE 

102 

J£.  1 

•AKO.  I 

0 .KEv  *1)  GO  TO  100 

NXMOOE 

103 

NXMOOE 

106 

105 

106 

107 

108 

109 

110 
111 
112 
113 
116 

115 

116 

117 

118 

119 

120 
121 
122 
123 
126 

125 

126 

127 

128 
129 


n <i  non  non  noon  n o o -oo  non  non  n n o o o n o on  o o 


^ '7^»  Jf J far-1  V,  ' Jt'W  , ' p-J*W"S3r v*  - 
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C HE  HAVE  -10  ABOVE  THE  CURRENT  ForHT  AND  ARE  EITHER  ON  THE  FA»  LEFT  OF 
C THE  TABLE  OR  ELSF  HAVE  A CIFFERfNT  SIGN  AT  THE  »OINT  TO  THE  LEFT. 

C THIS  IS  INTERPRETEC  AS  SUCCESS. 

20  K*1 

IFN0*I  ..  _ 

JFN0=J 

RETURN 

THE  CONSIOEREO  NEH  POINT  IS  ON  THE  FIRST  ROM.  HE  GO  TO  THE  RIGHT. 

30  IFf  J .ED.  NON)  GO  TO  60 

J«J»1  . . _ . 

J10*<J-1I*NVP»I 

ICHK*INMOOE<J10)  _ . 

IF ( ICH<  .EQ.  10)  GO  TC  30 
J*J-i 

IF  THE  POINT  AT  THE  RIGHT  OF  CURRENT  tl.J)  IS  -10.  HE  HAVE  SUCCESS 
IF(  ICHK  .EQ.  -10)  GO  TO  20 

IF  IT  IS  NOT  -10.  HE  ALLOW  FOR  POSSIBILITY  OF  INM0QES=5  IN  UPPER  RICH 
HANO  CORNER  OF  TME  TABLE  AND  TRY .TO  SKIRT  THESE  FIVES  BY  MOVING  EITHE 
OOHNHAROS  OR  TO  THE  RIGHT. 

<»0  IF « I .EO.  NV°)  GO  TO  70 

x«m- 

J13*<J-i)*NVP»I 

ICHK»INHOOc(J10) 

IF  THIS  ICHK  IS  +10  HE  ARE  IN  .A  POSITION  TO  HAKE  A TRY  CF  MOVING  TO 
THE  RIGHT.  ........ 

At  IF ( ICHK  ,NE.  10)  GO  TO  SO 

IF  HE  ARE  ON  THE  RIGHT  HANO  SIOE  OF  THE  TABLE  THE  OESIREO  POINT  CANNO 
8E  FOUND.  HE  RETURN  WITH  K*«l 
AS  IF C J .EQ.  NOM)  GO  TO  100 

. 4«JU  ... 

IT  IS  TAKEN  FOR  GRANTED  THAT  THE  INKCDE  OF  POINT  AOOVE  CURRENT  CI.J) 
IS  5 SINCE  IT  WAS  FOUND  TO  EE  5 TO  THE  LEFT  AHO  ABOVE.  THE  INMCCE  OF 
THE  POINT  TO  THE  LEFT  IS  10.  IF  THE  NEW  INMOOE  IS  *10.  HE  HAVE  TO  TR 
TO  HOVE  FURTHER  TO  THE  RIGHT, 

J10*(J-1)*NVP»I  

ICHK* INMOOE ( J1 0 ) 

IF C ICHK  .SO.  10  ) GO  TO  A5  ..  . ..... 

J*J-1 


IF  THE  CURRENT  ICHK  IS  5.  WE  T°Y  TO  GO  OOWN  AGAIN.  THE  OTHER  "OSS- 

IBILITY,  ICHK=-IC  INCICATES  SUCCESS  

IF ( ICHK  .EQ.  -10)  GO  TO  20 

GO  TO  A0  

HE  CONTINUE  HERE  FROM  15.  THE  POINT  ABOVE  THE  CURRENT  (T.J)  HAS 
ICHK  .EQ.  5.  the  SITUATION  IS  SUCH  THAT  HE  CAN  RESUME  CALCULATION 
AT  A5  ANO  TRY  TO  MOVE  FURTHER  TO  THE  RIGHT.  . . . 

50  GO  TO  AS 

HE  CONTINUE  HERE  HITH  I=l.J*NOM  FRCM  STATEMENT  30.  SINCE  HE  HAVE  NO 
PLACE  TO  GO  THE  SEARCH  IS  UNSUCCESSFUL.  HE  RETURN  HITH  K*-l. 

60  GO  TO  100 

HE  CONTINUE  HERE  FROM  STATEMENT  (.0  HITH  I .EQ.  NVP  ANO  INNOOE*5  TO  TH 
RIGHT  OF  THE  CURRENT  tl.J).  HE  RETURN  HITH  K*-l. 

70  GO  TO  100 

HE  CONTINUE  HERE  FROM  STATEMENT  AA  HITH  THE  POINT  BELOW  HAVING 


NXMOOE 
NXKOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NX MODE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXKOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXHOOE 
NXMOOE 
NXKOOE 
NXHOOE 
NXKOOE 
NXMOOE 
NXHOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 
NXMOOE 

NXHOOE 

NXHOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXKOOE 

NXKOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXHOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXKOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 

NXMOOE 


130 

131 

132 

133 
13A 

135 

136 

137 

138 

139 
1A0 
1A1 
1A2 
1A3 
1AA 
1A5 
1A6 
1A7 
1A8 
1A9 

150 

151 

152 

153 
15A 

155 

156 

157 
IS  8 

159 

160 
161 
162 
163 
16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
183 
18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 


on 
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C ICHK  .NE.  to.  THE  POINT  AT  THE  »IGMT  HAS  ICHK  ,E0.  5.  HE  CANNOT  NXMOOE 
C-  SKIRT  THE  FIVES  ANC  PENCE  AE  RETURN  HITH  K*-l.  NXMOOE 

SO  GO' TO  tOQ  NXMOOE 

NXMOOE 

ME  CONTINUE  HERE  FROM  1,3, 45,60 , 73 ,0R  SO.  THE  SEARCH  WAS  UNSUCCESSFU  NVMOOE 
100  Ks-1  NXMOOE 

RETURN  NXMOOE 

ENO  NXMOOE 


i 


194 

195 

196 
19T 

198 

199 

200 
201 


t 
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SUBROUTINE  NXTFNTdl.Jl, ITYPI, 12* j£*ITYP2«NR0W«NC0L* INN* K)  NXTPNT 

NXTPNT  (SUBROUT IKE)  6/24/69  LAST  CARO  IN  OECK  IS  NXTPNT 

NXTPNT 

NXTPNT 

——ABSTRACT——  NXTPNT 

NXTFNT 

TITLE  - NXTPNT  NXTPNT 

PROGRAM  TO  PINO  THE  NEXT  POINT  (I2,J2>  OP  AN  ARRAY  OF  NROW  ROW  NXTPNT 
ANO  NCOL  COLUMNS  GIVEN  THE  PRECEDING  POINT  (Il.Jl).  POINT  MIL  NXTPNT 
BE  USEO  IN  SUBSEQUENT  CALCULATION  OF  A PARTICULAR  POINT  ON  THE  NXTPNT 
PHASE  VELOCITY  VERSUS  FREQUENCY  CURVE  OF  A GIVEN  GUICEO  NODE.  NXTPNT 
A TABLE  OF  VALUES  OF  THE  SIGN  OF  THE  NORMAL  HOOE  OISFERSION  NXTPNT 

FUNCTION  IS  PRESUMEC  TO  BE  STORED  AS  INK t ( J-U *NVP*I ) FOR  EACH  NXTPNT 
POINT  (I,J)  IK  THE  AFRAY.  DIFFERENT  COLUMNS  CJ>  CORRESPQNO  TO  NXTPNT 
DIFFERENT  FREQUENCIES  WHILE  DIFFERENT  ROWS  (I)  CORRESPOND  TO  NXTPNT 
DIFFERENT  PHASE  VELOCITIES.  SUCCESSIVE  POINTS  ARE  CHARACTER!!  NXTPNT 
BY  A TYPE.  ITYP1  IS  TYPE  OF  (Il.Jl)  WHILE  ITY=2  IS  TYPE  OF  NXTPNT 
SECOND  »OINT.  THE  TYPE  INDEX  IS  1 IF  THE  »OINT  DIRECTLY  ABOVE  NXTPNT 
THE  CONSIDERED  POINT  HAS  AH  INM  OF  OPPOSITE  SIGN.  IT  IS  2 IF  NXTPNT 
THE  POINT  TC  THE  RIGHT  HAS  INK  OF  OPPOSITE  SIGN.  SINCE  BOTH  NXTFNT 
. . POSSIBILITIES  CAN  CCCUR,  THE  CESIGNATEO  TY“E  INDEX  ITYPi  CENOT  NXTPNT 

THE  PREVIOUS  USE  CP  THE  POINT  (Il.Jlt  IN  COMPUTATION.  THE  VAL  NXTPNT 


ITYP2  WILL  IN  GENERAL  OEFENC  ON  THE  PREVIOUS  VALUE  ITY»1.  NXTPNT 

THE  OERIVEO  VALUES  OF  I2.J2.ITYP2  ARE  CALCULATED  AS  FOLLOWS.  NXTPNT 

NXTFNT 

t.  IF  ITYPI  IS  1 ANO  IKH  OF  POINT  TO  RIGHT  IS  OP°OSIT£  NXTPNT 

....  OF  I0*INH((J-1)»NVP«I) , THEN  12=11, J2=J1,ITYP2=2.  NXTPNT 

NXTPNT 

. 2*.  THE  POINT  (12, J2>  MUST  EITHER  BE  THE  OIRECTLY  ACJACE  NXTPNT 

POINT  TO  THE  RIGHT  (I1.J1HI,  THE  POINT  OIRECTLY  BEL  NXTPNT 

...  dial* Jl) , CR  THE  ADJACENT  POINT  TO  THE  LOWER  RIGHT  NXTPNT 

(11*1, Jl*l)  IF  CONDITION  1 DOES  NOT  HOLO  NXTPNT 

NXTFNT 

. . ^ THf  CH0SEtl  POINT  MUST  HAVE  THE  SAH£  INH  AS  (It. Jl)  NXTPNT 

ANO  HAVE  A POINT  EITHER  OIRECTLY  ABOVE  OR  CIP.ECTLY  T NXTPNT 

THE  RIGHT  WITH  OPFOSITE  INH.  NXTFNT 


NXTPNT 

■4.  IN  THE  EVENT  MOPE  THAN  ONE  POINT  SATISFY  CONDITIONS  NXTFNT 

.2  ANO  3,  PRIORITY  OF  SELECTION  IS  (U  THE  POINT  TO  NXTPNT 

THE  RIGHT,  (2)  THE  POINT  OIRECTLY  BELOW,  (3)  THE  POI  NXTFNT 
. 4 TO  THE  LONER  PIGHT.  IF  THE  SELECTEC  POINT  SATISFIES  NXTPNT 
CRITERIA  FCR  BOTH  ITYP2=1  DR  2,  ITYP2=1  IS  ®ETURNEO.  NXTFNT 
OTHERWISE.  THE  APPROPRIATE  ITY P2  IS  RETURNED  QEFENOI  NXTPNT 
ON  WHICH  CRITERION  IS  SATISFIED.  NXTPNT 

NXTPNT 

THE  CONFUTATION  ASSUMES  PEGIOK  OF  SUCCESSIVELY  ACJACEKT  POINTS  NXTFNT 
HAVING  SANE  IKH  TC  3S  SIM.PLY  CONNECTED  ANO  THAT  PHASE  VELOCITY  NXTPNT 
CURVES  RENO  GCWNWAHCS,  I.E.,  D(V=>/D<OM)  ,LT.  0.  IF  NEW  POIN  NXTPNT 


IS  FOUND*  K**l.  IF  IT  IS  NOT  FOUNO,  K=-l. . . NXTPNT 

NXTPNT 

LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C26-651S-4)  . NXTPNT 

AUTHOR  • A.O. PIERCE,  M.I.T.,  JUNE, 1968  NXTPNT 

NXTPNT 

CALLING  SEQUENCE NXTFNT 

. . NXTFNT 

SEE  SUBROUTINE  MOOETR  NXTPNT 

DIMENSION  INMOCEU)  (INKCOE  IS-SAME  AS  INM)  HXTPNT 

CALL  NXTPNTt II, Jl, ITYPI, I2.J2, ITYP2,NROW,NCCL* IN'MOOE.K)  NXTPNT 

IF(  K »EO*  -1)  GO  SOMEWHERE  . . NXTPNT 

USE  12, J2«ITYa2  NXT"NT 

NXTPNT 

NO  EXTERNAL  LIORARY  SUBROUTINES  ARE  REQUIK-IO  NXTPNT 

NXTPNT 

—ARGUMENT  LIST—  NXTPNT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 
2$ 
26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 


ooooo ooooooo aoooo onn oooooooooooonooooooooooooooonoooooooooo 


NXTPNT  6S 


Si 

1*4 

NO 

IN0 

NXTPNT 

66 

J1 

1*4 

NO 

INP 

«.  . M6  '.mi  ..«■  ••  * 

NXTPNT 

67 

ITYP1 

1*4 

NO 

IN° 

NXTPNT 

68 

12 

1*4 

NO 

OUT 

NXTPNT 

69 

J2 

1*4 

NO 

OUT 

NXTPNT 

70 

ITYP2 

1*4 

NO 

OUT 

NXTPNT 

71 

NP.OW 

1*4 

NO 

IN° 

NXTPNT 

72 

NCOL 

1*4 

NO 

INP 

NXTFNT 

73 

INN 

1*4 

VAR 

IN° 

NXTPNT 

74 

K 

1*4 

NO 

OUT 

. 

. NXTPNT 

75 

NXTFNT  76 

NO  COMMON  STORAGE  USEO  . NXTPNT  77 

NXTPNT  78 


INPUTS r 

NXTPNT 

79 

NXTFNT 

80 

11 

•ROW  INCEX  OF  START  POINT 

NXTPNT 

81 

J2 

•COLUMN  INOEX  OF  START  POtNT 

NXTPNT 

82 

ITT  PI 

•TYPE  INOEX  OF  START  =0INT,  1 MEANS  °OINT  ABOVE  HAS 

NXTPNT 

63 

OIFFERSM  INM,  2 MEANS  POINT  TO  RIGHT 

HAS  DIFFERENT 

NXTFNT 

84 

INM. 

NXTPNT 

35 

NROM 

sNUMSER  CF  ROMS  IN  ARRAY  . 

NXTPNT 

66 

- NCOL 

aNUMOER  CF  COLUMNS  IN  ARRAY 

NXTPNT 

87 

INM 

•SIGN  OF  NCRM6L  MOOS  DISPERSION  FUNCTION,  1 IF  «»CS.» 

NXTPNT 

88 

« — . . 

-1  IF  N£G««  5 IF  IT  00ESN**T  EXIST,  t 

ET  I*L  MOO  NVP, 

NXTPNT 

89 

J*  IL*>II  / NV s *1  • INM.CDE(L)  IS  SIGN  OF 

NMOF  FOR 

NXTPNT 

90 

v 

ONECA*OK(J> , PHASE  VEL.  =VPtIl,  WHERE 

OM ( J)  .GE.  OH ( 

NXTPNT 

91 

AND  VP(I»  .LE.  V<MI-i> 

NXTPNT 

92 

NXTPNT 

93 

— OUTFUTS 

NXTFNT 

94 

* 

NXTPNT 

95 

12 

«ROH  INOEX  CF  FOUND  POINT 

NXTFNT 

96 

’ ..  J2 

•COLUMN  INOEX  OF  FCUNO  POINT 

NXTPNT 

97 

ITYP2 

•TYPE  INDEX  OF  FOUND  POINT 

NXTPNT 

98 

X . 

'•  «FLAG  INDICATING  IF  POINT- '»2,J2»  ! IS ./:<>UNQ, . 1 IF  YES. 

NXTPNT 

99 

-1  IF  NO  . V 

NXTPNT 

100 



NXTPNT 

101 

—’EXAMPLE 

NXTPNT 

102 

NXTPNT 

1Q3 

SUPPOSE  THE 

ARRAY  OF  INM  VALUES  IS  AS  SHO^U  faL'-UM 

NXTPNT 

104 

NXTPNT 

105 

,♦♦♦♦♦♦♦♦♦—  NROW«8,  NCOL*ll 

NXTPNT 

106 

^ • 

NXTFNT 

107 

I2»3»J2*5, 

NXTPNT 

108 

NXTPNT 

109 

NXTPNT 

110 

I2=2.J2Z10, 

NXTPNT 

111 

NXTPNT 

112 

NXTPNT 

113 

IF  It*3,Jl  = 7,ITYf»l=t  THEN 

12=3, J2=7. 

NXTPNT 

114 

......  . ..  . iTTP2»2,xn 

NXTFNT 

115 

. ...  . , . IF'  Il»3,Jlall,ITVPls*.  THEN 

NXTPNT 

116 

- ‘ 

K*-l 

NXTPNT 

117 

NXTPNT 

118 

. ,,  ..  . 

NXTPNT 

119 

• ••••-PROGRAM  FOLLOWS  BELOW—— 

NXTPNT 

120 

NXTPNT 

121 

NXTPNT 

122 

NXTPNT 

.'23 

OIMENSION  INMtl) 

NXTFNT 

124 

Jtl«<Ji 

-lir»NKOHHl  ....... 

NXTPNT 

125 

IQ  = INM<JU)  . 

NXTPNT 

126 

1 IF(  10 

•EQ«  5 .OP.  11  ,GT , NROW  .OR.  Jl  .GE.  NCOL) 

GO  TO  30 

NXTPNT 

127 

NXTFNT 

128 

o n no  no  no  on  oo  non  on 


-133- 


c 

IR  IS  INN  Of  POINT  TC  THE  RIGHT.  10  IS  INH  OP  POINT 

(XI, Ul), 

NXTPNT 

129 

5 J12*(J1»*NR0H*I1 

NXTPNT 

130 

IR*IIIM(J12» 

NXTPNT 

131 

6 Iff  IR  .ME.  10  ) GO  TO  15 

NXTPNT 

132 

7 IF ( 11  .EQ.  1 ) GO  TO  30 

NXTPNT 

133 

c 

NXTPNT 

134 

* 

c 

IR  HAS  THE  SAME  SIGN  AS  10.  HE  CHECK  IRU  REPRESENTING  INH  OF  UPPER 

NXTPNT 

135 

c 

RIGHT  POINT.  IF  THIS  IS  -10.  THE  RIGHT  POINT  IS  THE 

OESIREO  POINT. 

NXTPNT 

136 

c 

IF  IT  IS  NOT  -10.  HE  CANNOT  FIND  (I2.J2). 

NXTFNT 

137 

10  J13*(J1)*NR0H*I1-1 

NXTPNT 

138 

IRU*IN*( (J13) 

NXTPNT 

139 

i 

11  IF  I IRU  .NE.  -10  ) GO  TO  30 

NXTPNT 

160 

ITVP2*1 

NXTPNT 

161 

12*11  . 

NXTPNT 

142 

J2*Jltl 

NXTPNT 

143 

K*1  • ‘ 

NXTFNT 

144 

RETURN 

NXTPNT  ’ 

145 

c 

* 

NXTFNT 

146 

c 

ME  ARRIVE  HERE  FROF  STATEMENT  6.  THE  POINT' TO  THE  RIGHT  HAS  A 

NXTPNT 

147 

J 

c 

DIFFERENT  INM.  IF  THIS  IS  -10  AND  ITYP1*1,  ME  HAVE 

(I2.J2I =(I1,J1I 

NXTPNT 

148 

> 

c 

MITH  ITTP2*2.  IF  THIS  IS  5.  HE  CANNOT  FIND  (12. J2> . 

NXTPNT 

149 

15  IF ( IR  .EQ.  5 > GO  TO  30 

. 

NXTPNT 

150 

c 

NXTFNT 

151 

c 

IR«-I0  AT  THIS  POINT  ... 

, , 

NXTPNT 

152 

. IF(  ITYP1  .NE.  1 ) GO  TO  25 

NXTPNT 

153 

12*11  ‘ 

• • . . . 

NXTPNT 

154 

...  .V.  * * ■ - 

NXTPNT 

155 

ITYP2P2 

NXTPNT 

156 

K*1 

* . 

NXTPNT 

157 

RETURN 

NXTPNT 

158 

c 

NXTFNT 

159 

c 

IR*-I0 . ITYF1  IS  2.  HE  CONTINUE  FRCH  STATEMENT  15. 

IF  HE  APE  ON  TH 

NXTPNT 

160 

c 

8OTT0H  ROH,  HE  CANNOT  FINO  NEW  POINT 

NXTPNT 

161 

25  IF  (I1.EO.N30H)  GO  TO  30 

NXTPWT 

162 

c 

.*  . • 

NXTPNT 

163 

c 

ME  CONSIOER  POINTS  BEUOH  *NO  TO  LOHER  RIGHT 

NXTPNT 

164 

Jl4**  ( Ji-H  *NROH>  Ii  + 1 ... 

NXTPNT 

165 

IO*  INH  ( Jl<*>  * • '• 

NXTPNT 

166 

ji5*(jh*nroh.u*i  • 

NXTPNT 

167 

IOR*INH  ( J15I  ..  •.  ■ 

NXTPNT 

168 

c 

NXTPNT 

169 

c 

IF  IOR  IS  5.  ME  CANNOT  FINC  THE  NEH  POINT 

NXTPNT 

170 

26  IF(  IOR  .EO.  -5  > GO  TC  30 

i m 

NXTPNT 

171 

e 

« r * ‘ * # 

NXTPNT 

172 

c 

IF  IOR  IS  10,  THE  NEXT  POINT  IS  THE  CR  POINT 

NXTPNT 

173 

’ 

27  IF ( IOR  .NE.  10  ) GO  TO  28  . ■ . . 

NXTFNT 

174 

. I2*im  . . 



NXTPNT 

175 

J2*J1*1 

NXTFNT 

176 

XTYP2*1  

NXTPNT 

177 

K*t 

NXTPNT 

178 

RETURN  - , 

. . 

NXTPNT 

179 

c 

NXTPNT 

180 

c 

IR*-I0,  ITYP1  IS  2.  IOR  IS  -10.  HE  CONTINUE  FROM  STATEMENT  27. 

NXTFNT 

181 

28  IF ( IO  .NE.  10  » GO  TO  30 

NXTPNT 

182 

c 

. ....  • w , 

NXTPNT 

183 

{ 

c 

THE  NEXT  POINT  IS  THE  OOHN  POINT 

NXTFNT 

184 

I2*I1U 

NXTFNT 

185 

J2*J1 

NXTPNT 

186 

ITYP2*2 

NXTPNT 

187 

K*1 

NXTFNT 

188 

RETURN  

NXTPNT 

189 

t 

e 

NXTPNT 

190 

c 

ME  ARRIVE  HERE  FROn  1,7,11,15,25.26.  THE  NEXT  POINT 

CANNOT  BE  FOUND 

NXTPNT 

191 

30  K*-l 

NXTPNT 

192 

RETURN  .. 

NXTFNT 

193 

END 

NXTPNT 

194 

oononnoooonniinoonnnnnononnoononooflnonnnnnnnonoonnnoonoonnooonn 
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SUBROUTINE  PAMPC£(ZSCRCE«  ZOPS, HQFNO»KST*KFIN,OMHOO*VPHOO« AKI, 
1AHP»ALAM,FACT, THETK.NPBNTI 

PAMPOE  (SUBROUTINE! . 7/30/68  LAST  CARO  XN  OECK  IS 

——ABSTRACT—— 

TITLE  - PAMPOE 

PROGRAM  TO  COMPUTE  ANC  STORE  AMPLITUDE  FACTORS  AMP(J!  AMO  FACT 
ANO  SCALING  FACTOR  AL AM.  THE  QUANTITY  AMPtJI  IS  THE  QUANTITY 
AMPLTO  COMPUTED  BY  SUBROUTINE  NAMPQE  WHEN  THE  ANGULAR  FRECUENC 
IS  OMMOOIJI  ANO  THE  PHASE  VELOCITY  IS  VPMOOtJI.  IT  CORRESPOND 
TO  THE  NNOOE-TH  GUIDEO  HODS  WHEN  J IS  BETWEEN  KSTINMCOEl  AMO 
. KFINCKMOOEI . INCLUSIVE.  THE  QUANTITY  FACT  IS  OEPENOENT  QN 
SOURCE  ALTITUCE  ZSCRCE  ANC  OBSERVER  ALTITUOE  Z03S  ANO  IS  GIVEN 

FACT  * CONST *CX(1!*UEC*(PSCRCE/1,£6I **0.333333 

WHERE  CONSUL. 3/S0RT(Z*PII  ♦ CUD  IS  THE  SOUND  SPEED  AT  THE 
CROUNC.  ( PSCRCE/i . E6J  IS  THE  AMBIENT  PRESSURE  AT  ZSCRCE  OIVICE 
BY  THE  AMBIENT  PRESSURE  AT  THE  GROUND.  THE  QUANTITY  UEO  IS 
THE  SQUARE  RCOT  OF  (AMBIENT  DENSITY  AT  208S) / ( AMeiENT  OENSITY 
ZSCRCE  1.  THE  SCALING  FACTOR  ALAM  IS  GIVEN  8Y 

ALAH  * (t «£6/PSCRC£!**(Q. 333333! * (CX (II /Cl (ISCR) 

WHERE  CKISCPI  IS  THE  SOUND  SPEED  AT  THE  SOURCE  ALTITUDE,  THE 
SIGNIFICANCE  CF  THESE  OUANTITIES  IS  EXPLAINED  IN  SUBROUTINE 

PPAHP.  . 


PROGRAM  NOTES 


LANGUAGE 

AUTHORS 


THE  PARAMETERS  IHAX.CI. VXI ,VYI,HI  DEFINING  THE  MULTILAYE 
ATMOSPHERE  ARE  PRESUMEC  STORED  IN  COMMON.  THE  AMBIENT 
‘PRESSURES  ARE  COMPUTED  3Y  CALLING  SUBROUTINE  AMENT  WHICH 
ALSO  COMPUTES  THE  INDICES  I0B3  ANO  ISCR  O*-  THE  LAYERS 
IN  WHICH  OBSERVER  ANO  SOURCE*  RESPECTIVELY,  LIE. 

IN  COMPUTING  AMBIENT  DENSITIES,  THE  IDEAL  GAS  LAW 
RMO*  GAMHA*P/C**Z  IS  USED.  THUS  UEO  * (C I (ISCR! /CUIOBSI 
SORT (P06S/PSC3CE)  , .... 

■^FORTRAN  IV  (363-,  REFERENCE  MANUAL  CZB-651S-L1 

• A. 0. PIERCE  ANC  J. POSEY,  H.I.T.,  JULYilB69 


—CALLING  SEQUENCE 


SEE  THE  MAIN  PROGRAM 

OIMFHSION  CI(100),VXI(100).VYI(100I  .HK1Q0! 

DIMENSION  K3T(1I,KFIM1! .OMMOD 111 »VP“00 til » AM°t 11 
THE  PROGRAH  USES  VARIABLE  DIMENSIONING  FOR  QUANTITIES  IN  ITS 
ARGUMENT  LIST. 

COMMON  INAX,Ct,VXI,VYI,HI  THESE  MUST  3E  STORED  IN  COMMON! 
CALL  °ANPOSt ZSCRCE, ZOOS .MQFN0.X3T ,KPIN, OMMOC. V°MOO . AM9, ALAH, 
1 FACT,THETK,NPPNT) 


—EXTERNAL  SUBROUTINES  REQUIRED— 


AMBNT.NAMPOE, TCTINT »MMMKiAAAA,USEAS»UPINT ,ELINT??QB8«CAI,SAI 


—ARGUMENT  LIST— — 


ZSCRCE 

Z08S 


PAMPCE 

PAMPQE 

PAMPOE 

PAHPOE 

PAHPOE 

PAHPOE 

PAHPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAHPOE 

PAMPOE 

PAH»OE 

PAMPOE 

PAHPOE 

PAHPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAHPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPGE 

PAMPOE 

PAMPOE 

PAMPOE 

PAwPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 


uuuouuuuuuuuuuouuouuuouuuuoouuouuuuuuuuuuuuouuuuuouuuuuuuuuuuuuu. 


“135- . 


HOFNO 

X*4 

NO 

IN® 

KST 

1*4 

VAR 

IN® 

XFIN 

1*4 

VAR 

INP 

OMMQO 

R*4 

VAR 

INP 

VPMOO 

R*4 

VAR 

INP 

AHP 

R*4 

VAR 

OUT 

ALAN 

R*4 

NO 

CUT 

FACT 

R*4 

NO 

OUT 

THETK 

R*4 

NO 

INP 

NPRNT 

1*4 

NO 

INP 

COHHON  STORAGE  USED 


COMMON 

IMAX.CI. 

VXI.VYI 

.HI 

MAX 

1*4 

. NO 

INP 

Cl 

R*4 

100 

INP 

VXI 

«*4 

100 

IN® 

VVI 

R*4 

100 

IN® 

NX 

R*4 

100 

INP 

ZSCRCE 

Z10S 

HOFNO 

KST(N) 

KFIN(N) 

OHHOO(N) 


VPHOD(N) 


THETK 

NPRNT 

IHAX 

CUD 

VXI(IJ 

vrun 

hxci 


AHPIJI 


ALAN 


PACT 


—INPUTS  — 

’HEIGHT  IN  KM  OF  BURST  A30VE  GROUNO 
’HEIGHT  IN  KM  OF  OBSERVER  ABOVE  GROUND 
’NUMFEW  OF  GUIDES  HCOES  FO'JNC 
’IKOEX  OF  FIRST  TAOULATEQ  POINT  IN  N-TH  MOOE 
’INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  HOOE.  IN 
GENERAL#  <F  INtNl  *<ST  t NU> -l . 

’ARRAY  STORING  ANGULAR  FREQUENCY  O’DINATE  (RIO/SEC)  0 
POINTS  ON  0ISeE»SICN  CURVES.  THE  NMOCE  HOOE  IS  STOP 
FOP  N BETWEEN  KST(NMOQE)  ANO  KFININMODE),  INCLUSIVE. 
’ARF.SY  STORING  PHASE  VELOCITY  OROINATE  CKH/SEC)  OF 
POINTS  ON  CISOFRSICN  CURVES.  THE  NMOOE  HOOE  IS  STOP 
. FOF  N BETWEEN  KSUNNOOE)  AND  KFIN(NMOOE)  . 

’OIHECTION  IN  RACIANS  TO  OBSERVER  FROM  SOURCE.  RECKON 
COUNTER  CLOCKWISE  FPOM  X AXIS. 

’PRINT  OPTICN  INDICATOR  (SEE  NA HI  IN  MAIN  PROGRAM. 
*NUH®ER  OF  LAYEPS  OF  FINITE  THICKNESS. 

’SOUND  SFESC  IN  KH/SrC  IV  I-TH  LATER 
’X  COMPONENT  OF  HINC  VELOCITY  IN  I-TH  LAYER  (KH/SEC) 
*Y  COMPONENT  OF  HINC  VELOCITY  IN  I-TH  LAYER  (KM/SEC) 
’THICKNESS  IN  KH  OF  .I-TH  LAYER  OF  FINITE  THICKNESS 

——OUTPUTS—  ...  ... 

’AMPLITUDE  FACTOR  FOR  GUICEO  HAVE  EXCITEO  9Y  FOINT 
• ENERGY  SOURCE.  UNITS  ARE  KM**t-l>.  THE  J-TH  ELEMEN 
COFRESPONCS  TO  ANGULAR  FREQUENCY  CMKOOIJ)  ANC  PHASE 
VELOCITY  VF**00(J>.  TM-  AH’LITUCE  FACTOR  IS  arrfoori 
TO  THE  NMCCE-IH  MODE  IF  J ,GE.  KST(NHOOE)  AND  J .LE. 
KPIN(NHOOE)  . THE  AHP(J»  IS  THE  SAHE  AS  AMFLTO  COMPU 
8Y  SUOROL'T INS  NAMPOE, 

*A  SCALING  FACTOR  CEFENQEHT  ON  HEIGHT  OF  "URST,  EQUAL 
TO  CUBE  RCCT  CF  (PRESSURE  AT  GPO'JNO) /(PRESSUPE  AT 
BURST  HEIGHT!  TIMES  (SOUND  SPEED  AT  GROUND) / (SOUNO 
SPEED  AT  6USST  HEIGHT)  . 

*A  GENERAL  ANPLITUOE  FACTOR  OEPENCENT  CN  BURST  HEIGHT 
ANO  OBSERVER  HEIGHT.  A PRECISE  DEFINITION  IS  GIVEN 
IN  THE  ABSTRACT. 

——PROGRAM  FOLLOWS  BELOH- 


DIMENSION  ANO  CONMCN  STATEMENTS 

01  HENS  ION  CKICO.VXI  (100)  .VYI(tOC)  .HI  (100) 


PAHPOE 

65 

PAMPOE 

66 

PAHPOE 

67' 

PAMPOE 

68 

PAHPOE 

69 

PAHPOE 

70 

PAHPOE 

71 

PAHPOE 

72 

PAHPDE 

73 

PAHPOE 

74 

PAHPOE 

75 

PAHPOE 

76 

PAHPOE 

77 

PAHPOE 

7B 

PAHPOE 

79 

PAMPOE 

80 

PAHPOE 

81 

PAHPOE 

82 

PAHPOE 

83 

PAHPOE 

84 

PAHPOE 

85 

PAMPOE 

86 

PAHPOE 

87 

PAHPOE 

88 

PAHPOE 

89 

PAMPOE 

90 

PAMPOE 

91 

PAM»OE 

92 

pAMoqg 

®3 

PAHPOE 

94 

PAMPOE 

95 

PAMPQE 

96 

"AM’CE 

97 

PAMPOE 

98 

PAHPDE 

99 

PAMPOE 

too 

PAMFOE 

101 

PAHPOE 

102 

PAHPOE 

103 

PAMOOE 

104 

PAH°OE 

105 

PAMPOE 

106 

PAH®OE 

1C7 

PAMPOE 

108 

PAHPOE 

109 

PAMPOE 

no 

PAHPOE 

111 

PAMPOE 

112 

PAMPOE 

113 

PAMPOE 

114 

PAH’OE 

115 

PAMPOE 

116 

PAMPOE 

117 

PAM’OE 

118 

PAM’OE 

119 

PAM’OE 

120 

PAMPOE 

121 

PAMPOE 

122 

PAHPOE 

123 

PAMPOE 

124 

PAMPOE 

125 

PAHPOE 

126 

PAH’OE 

127 

PAHPOE 

125- 

PAHPOE 

129 

i 


o n 
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* 


DIMENSION  KST(10),KFIN(10)  .OHHOOdQOO) , VPMOO(IOQO) .AMP(IQOS)  PAHPOE' 

DIMENSION  AKId&aO)  PAMPOE 

COMMON  INAX.CI,VXI,VYI,HI  .....  PAMPOE 

C PAMPOE 

HOFNO  * HOFNO  ..  . PAMPOE 

IF  (N®RNT.LT.O)  GO  TO  20  ' PAHPOE 

C PRINT  HEAOING  FOR  PHU  ANO  FHI2  PROFILE  OATA  TO  BE  POINTED  BT  NAKPOE  PAHPOE 
MRITE  (6*19)  PAMPOE 


19  FORMAT  ( 1H1 ,41X .26HFHI1  ANO  PHI2  PROFILE  OATA  ///63H0IAP1MX  a NO*  PAMPOE 


10F  LAYER  FOR  WHICH  ABS (Phil (IA F1MX ) ) IS  A HAXIMUM/63H  IAP2MX  a NO  PAfOOE 
2 OF  LAYER  FOR  WHICH  ABS (PHI2 (I AP2MX ) ) IS  A NAXIMUN/42H  Rl  a P PAMPOE 

mtlAoiMX)  / A9S(PHI2(IAF2MX>>  /42H  R2  a OHI2(IAP2MXI  / ABS  IP  PAMPOE 

4I2(IAP2NX))  /37H  S3  a PHI2(t)  / ABS(PHI2(IAP2HX) ) /40H  NZ Cl  PAHPOE 

3«  NO.  CF  TIMES  FHI1  CHANGES  SIGN  /40M  NZC2  a NO.  OF  TIMES  FMI2  PAM»OE 
6HANGES  SIGN)  . . PAHPOE 

20  CONTINUE  PANFOE 

C 00  LOOP  TO  COMPUTE  AMP(J)  ...  PAMPOE 

00  25  II=t,MCfNC  PAMPOE 

IF  INPRNT.LT. 0)  GO  TO  23  PAMPOE 

NRITE  (6.22)  II  PAMPOE 

22  FORMAT  (1H  //////  1H  ,51X,5HMOOE  .12  ///  1H  ,7X.5H0NE6A,7X,5HVPHS  PAMPOE 

l*6X.6HIAPlMX.10X,2HRl.SX.4HHZCi»EX.6HIAP2MX.10X»2HR2,aX,4HNZC2.1Q  PAMPOE 
2.2HR3  /)  PAMPOE 

23  Jt*XST(II)  PAMPOE 

J2*KFIN(  II)  PAMPCE 

00  25  J*J1,J2  PAMPOE 

K « J v... ... PAMPOE 

OMEGA  a OMMOO(K)  PAMPOE 

VPHSE  « VPMOO(K)  .......  . . PAMPOE 

AKITR  » AKI(K)  PAN»OE 

X « AMP(K)  PAHPOE 

CALL  NAMPOEdSCRCE.ZOBS. OMEGA, VPHSE, AXITR.THETK.X.NPRNT)  PAMPOE 

AMP(K)  ax  . PAMPOE 

25  CONTINUE  PAMPOE 

NRITE  (6,251)  _ . PAMPOE 

251  format (ih  /////  leu  ahbnt  is  called)  pakpde 

C CNO  OF  00  LOOP  _*.....  PAMPOE 

c • PAMPOE 

C COMPUTATION  OF  AMBIENT  PPESSURES  "...  PAMPOE 

CALL  AM9NT(ZSCRCE,PSCRCS ,ISCR)  PAHPOE 

CALL  AMOHT(ZOaS,eOBS,ICGS)  PAM»OE 

WRITE  (6,252)  CSCRCE » I SCR, POOS  VI  CSS  PAMPOE 

252  FORMAT  (1M  , tlfc. 5, HO, -16. 5, 110)  PAMPOE 


c 

C COMPUTATION  CF  SQRT(CENS ITY  RATIO) 

UEO  a (Cl (I SCR) /CKICCS))  » SORT (P09S/PSCRCE) 

COMPUTATION  OF  ALAM  ANO  FACT 


PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 

PAMPOE 


ALAM* ( 1, E6/PSCPCS) »*(C. 323333)* (Cl (1) /Cl (ISCR)).  .. 

C NOTE  THAT  CI(1)  IS  SOUNO  SFEEO  AT  THE  GROUND 
CONST  a 4.0 /SORT (2.0*3.141593) 

FACT  a CONST* (C I (l)*UE0*(°SCRCE/l.E6)#*( 0.3333333)) 
MRITE  (6.253)  FACT 
253  FORMAT  (in  , SHFACTa ,E 16 . 5) 

IF (NFRNT  ,NE«  1)  RETURN 


PAMPOE 

PAM»OE 

PAM«OE 

PAMPOE 

PAMPOE 

PAHPOE 

PAHPOE 


WRITE  (6,31)  ZSCRCE.ZOSS. FACT, ALAM 
31.  FORMAT (1^1.  2CX,  36H7A6ULA  TION  OF  SOURCE  FREE  AMPLITUDES. 

• 1 21H  FROM  SUBROUTINE  RAMFOE  //21X.  19HHEIGMT  OF  BURST  a, 

1 F8.3,  3H  KM  / 21X,  19HFEIGHT  CF  0°SERVERa,  FB.3.  3H  KM/ 

1 21X,  4HFACT.  14X,  1H=,  F8.3,  7H  KM/SEC/  21X.4HALAM.14X,  IMa, 
1 F8.3)  ..  . 

00  50  II  »1, HOFNO 
-c WRITE  (6.41)  II 

41  FORMAT ( IH  ///  1 H , 5MMCCE  , 13/  1H  , 20X.5HOMEGA. 

1 15X,  5HVPHSE.15X,  3HAKI,  17X,  3HAMP) 


PAHPOE 
PAHPOE 
PAMPOE 
PAMPOE 
PAMPOE 
PAMPOE 
PAMPOE 
PAMPOE 
PAMPCE 
PAM"OE 


130 

131- 

132 

133 

134 

135 

136 

137 
133 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
.161 
162 
163 
„64 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 
192. 

193 

194 
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K1*KST(IX) 

PAHPOE 

195 

K2*KFIN< III 

PAHPOE 

196 

00  50  J»K1.K2  ' 

PAHPOE 

197 

59  WHITE  (6 1 51)  OPHOO ( Jl » VPMOC ( J>  « AKI C Jl « AMP ( Jl  ■ 

•AMPOE  - 

198 

51  FORMAT <1H  ,<»X.F2e.5tF20.5tFZ0.9#F20.5l 

PAHPOE 

199 

RETURN  

PAHPOE 

200 

ENC 

PAHPOE 

201 

nnnannoooflnnnonflfloonnnnnnnnnnnnononoannonnnnnonnonnnnoononnnn 
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SURROUTINE  PHASE(RR,RI,K,PHI> 

PHASE 

1 

PHASE  (SUBROUTINE)  8/15/68  (.AST  CARO  IN 

DECK  IS 

PHASE 

2 

PHASE 

3 

PHASE 

6 

——ABSTRACT—— 

PHASE 

5 

PHASE 

6 

TITLE  - PHASE 

PHASE 

7 

CONVERSION  OF  A COMPLEX’  NUNEE*  FROM  RECTANGULAR  FORM  TO 

PCLAR 

PHASE 

8 

FORH 

PHASE 

9 

PHASE 

10 

GIVEN  TWO  REAL  NUMBERS  RR  ANO  RIt  A MAGNITUDE  R ANO  AN 

PHASE 

It 

ANGLE  FHI  ARE  CONFUTED  SUCH  THAT 

PHASE 

12 

PHASE 

13 

RR  ♦ I*RI  * R * EXP(  I*PHI  ) 

PHASE 

14 

PHASE 

15 

WHERE  I * (-1)**0 .5 

PHASE 

16 

PHASE 

17 

LANGUAGE  - FORTRAN  IV  (360*  REFERENCE  MANUAL  C28-6515-4) 

PHASE 

18 

PHASE 

19 

AUTHORS  - A. 0. PIERCE  ANC  J. POSEY.  H.I.T.,  AUGUST. 1968 

PHASE 

20 

PHASE 

21 

PHASE 

22 

—USAGE— 

PHASE 

23 

PHASE 

24 

NO  SUBROUTINES  ARE  CALLEC 

PHASE 

25 

. 

PHASE 

26 

FORTRAN  USAGE 

PHASE 

27 

. 

PHASE 

28 

CALL  PHASE(RR.RI.R.PHI)  

PHASE 

29 

PHASE 

30 

INPUTS 

PHASE 

31 

• 

PHASE 

32 

RR  REAL  PART  OF  THE  COMPLEX  NUMBER  BEING  CONVERTEO 

PHASE 

33 

R*4 

PHASE 

34 

PHASE 

35 

RI  IMAGINARY  PART  OF  COMPLEX  NUMBER  BEING  CONVERTEO 

PHASE 

36 

R*4  

PHASE 

37 

* 

PHASE 

38 

OUTPUTS  . . . . 

PHASE 

39 

PHASE 

40 

R MAGNITUDE  OF  THE  COMPLEX  NUMBER 

PHASE 

41 

R*4 

PHASE 

42 

*HASE 

43 

PHI  PHASE  OF  THE  COMPLEX  NUMBER  (RACIANS)  (-PI.LT.PHI 

•LE.PI) 

PHASE 

44 

R*4  . . 

PHASE 

45 

PHASE 

46 

’ . 1 ‘ 

PHASE 

47 

— EXAMFLES- 

PHASE 

48 

* 

PHASE 

49 

CALL  PHASE(O.O.l.O.R.PHI) 

PHASE 

50 

PHASE 

51 

R « 1.0  ANO  FHI  » 1.570796  ARE  RETURNEO 

PHASE 

52 

PHASE 

53 

CALL  PHASE(l.O.-l.O.R.FHI) 

PHASE 

54 

PHASE 

55 

R « 1. <,14219  ANO  PHI  * -0.7853982  ARE  RETURNED 

°HASE 

5b 

...  . . . . . . . 

PHASE 

57 

PHASE 

58 

_ —PROGRAM  FOLLOWS  BELOW—. 

PHASE 

59 

PHASE 

60 

PHASE 

61 

PHASE 

62 

0»ABS(PR)*ABS(RI) 

PHASE 

63 

IFIQ-l.E-25)  1,1,30  \ ' . 

PHASE 

64 
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t R»0.0 

PHI*O.0  PHASE  65 

RETURN  PHASE  66 

30  ARsRR/O  PHASE  67 

AXxRI/a  PHASE  66 

A*S3ar<AR<M>2MI»*2)  PHASE  69 

R*3*A  PHASE  70 

PHX«ASXN(A8S(AI)/A>  PHASE  71 

XFIRR)  50,60,60  PHASE  72 

50  XFtRI)  300,300,200  PHASE  73 

60  IF<RI>  <.00,400,100  PHASE  74 

100  PHIsPHI  PHASE  75 

RETURN  PHASE  76 

200  PHI*3. 1415927-PHI  PHASE  ‘ 77 

RETURN  PHASE  76 

300  PH I*PH 1-3, 1415527  PHASE  79 

RETURN  PHASE  60 

400  PHX«-»HI  PHASE  61 

RETURN  PHASE  62 

END  PHASE  83 

PHASE  64 


OOOOOOOOOOOOOOOOOOftOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
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SUBROUTINE  PPAHP (YIELC.MCFNO,KST»XF IN, 0HK00»VPM00» 

'lAMP«ALAM  .FACT*  AMcLT0»  PHASQ) 

PPAMP  (SUBROUTINE)  7/30/68  LAST  CARO  IN  OECX  IS 

—ABSTRACT— 

TITLE  - PPANP 

PROGRAM  TO  COMPUTE  ANC  STORE  ANPLITUOE  ARRAY  AMFLTO  ANC  PHASE 
ARRAY  PHASO  FCR  GUICiC  HAVES  EXCITED  BY  4 POINT  ENERGY  SOURCE 
WITH  TINE  DEPENDENCE  CORRESPONDING  TO  A NUCLEAR  EXPLOSION  OF 
ENERGY  DENOTEC  OY  YIELD  IN  XT.  THE  VALUES  FOUND  ARE  TO  3E 
SUBSEQUENTLY  USEC  BY  THPT  ACCCROING  -TO  THE  RELATION 

(PRESSURE  IK  CYNSS/CH**2  FOR  A GIVEN  NOOE)*SQRT(R) 

■ INTEGRAL  OVER  CKEGA  OF  AMPLTO*COS(OMEGA* (T-R/V®) ♦PHASQ) 

THE  QUANTITIES  AMPLIC  ANC  PHASQ  ARE  BOTH  CEPEKOENT  on  ANGULAR 
FREQUENCY  AMD  ARE  DIFFERENT  FOR  DIFFERENT  MOOES. 


PROGRAM  NOTES 


IN  THE  FORMULATION  FOR  A “OINT  ENERGY  SOURCE*  THE  ENERGY 
EQUATION -IS  WRITTEN  . ...  

OP/OT  -CC**2)OtRHO)/OT  a a*PI*C**2*F(T>*(OELTA  FNCTN  ) 
AN  EXPRESSION  FOR  FIT)  IS 

FIT)  «C(L**2)/CS)»POS*(INTSGRAL  OVER  X FROM  0 TO  CS*T/L 
OF  UNIVERSAL  FUNCTION  FUNIVCXIT 

WITH  L*(ENEPGY/«>OS)*Ml/3)  ANO  POS.CT  REPRESENTING  PRESS 
ANO  SOUNO  SFEEO  AT  THE  SOURCE.  IF  FtXTfT)  IS  THE  “PESSU 
AT  A DISTANCE  CF  1 <H  FROM  A 1 XT  EX°LOSION  AT  SEA  LEVEL 
ANO  WITH  TIHE  ORIGIN  CORRESPONDING  TO  BLAST  WAVE  ONSET, 

THEN  ...  . . .... 

FUNIV(X)  3 ( (H*P01)  **  (-1)  ) •FiXT(Lt*X/Cl> 

THE  FCUPIER  TRANSFORM  C*  FIT)  IS  ACCORDINGLY  FOUND  TO  BE 

. G(OMEGA>3  (1/ (2*PI >)*(Y**{2/3))* tCl/CS) *CFOS/POD**(l/3 

*(l/(“I*OM.EGA>)  *FTHAG  ( OMERAT)*EXF(I*FT°HSE  CONERAT)  I 

WHERE  T IS  YIELD  IN  XT,  IsSQRT(-t),  ANO  OMERAT*ALAM* 
OMEGA*Y**fl/3) . THE  FUNCTIONS  FTMAG  ANO  FTPHSE  ARE  AS 
COMOUTEC  BY  SUBPOUTINE  SOURCE.  THE  QUANTITY  ALAH  IS 
CC1/CS)*<°01/F0S) **1/3  AS  COMPUTED  BY  SUBROUTINE 
PAMPOE. 

A LENGTHY  DERIVATION  NOT  GIVEN  HERE  INOICATES  THAT 
ANPLTO*SXP l-I’PHA SO) 

« «4*S0RT (X  J*G(OM£GA) *CS*UE0*S0RT(2*PI) *AMP 
•SXPt-I*PI/4> 

WHERE. AMP  IS  THE  SAME  AS  THE  AMPtTC  COHPUTFO  BY  NAMPOE  A 
WHERE  UEO  IS  THE  OFNSITY  FACTOR  (CS/COBS) -SORT (PSCRCE/PO 
COMPUTEC  IN  SUBROUTINE  PAMPOE.  INSERTING  G (OMEGA)  INTO 
THE  ABOVE.  WE  ICENTIFT 

PHASO  *<3/4>*FI  - FTPHSE (OMERAT) 


PPANP 

1 

PPAHP 

2 

PPAMP 

3 

PPAMP 

4 

PPAHP 

5 

PPAMP 

6 

PPAMP 

7 

PPAMP 

8 

PPAMP 

9 

PPAMP 

10 

PPAMP 

11 

PPAMP 

12 

PPAMP 

13 

PPAMP 

IN 

PPAMP 

IS 

PPAMP 

16 

PPAMP 

17 

PPAMP 

18 

PPAMP 

19 

PPAMP 

20 

PPAMP 

21 

PPAMP 

22 

PPAMP 

. 23 

PPAM® 

24 

PPAHP 

25 

P®AM» 

26 

PPAMP 

27 

PPAM® 

28 

PPAM® 

29 

PPAMP 

30 

PPAMP 

31 

PPAM® 

32 

PPAMP 

33 

PPAMP 

34 

PPAMP 

35 

PPAM" 

36 

PPAMP 

37 

PPAMP 

38 

PPAMP 

39 

PPAMP 

40 

PPAMP 

41 

PPAM® 

42 

PPAM® 

43 

PPAMP 

44 

PPAMP 

45 

PPAM® 

46 

PPAM® 

47 

PPAM® 

48 

PPAM® 

49 

PPAM® 

50 

PPAMP 

51 

PPAMP 

52 

PPAMP 

53 

PPAMP 

54 

PPAMP 

55 

PPAM® 

56 

PPAMP 

57 

PPAM" 

58 

PPAM® 

59 

PPAM® 

60 

PPAM® 

61 

PPAM* 

62 

PPAM® 

63 

PPAMP 

64 

oooonnnnnnnnnnnonnnnnnnnnonnnnnnnnnnnnpnnnnnonnnoonnnnonnonnoono 
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6NPLTG*FACT*AMO*(Y**t2/3)>*FTMAG(OMSRAT>*SQRT(K)/OMEGA 

PPAM° 

65 

PPAM® 

66 

WHERE  FACT  IS  9/SQRT (2*®I) *C1*UE0* (PS/Pt) ** (1/3)  ANC  IS 

P®AMO 

67 

COMPUTED  BY  SUBROUTINE  FAMPDE. 

PPAM.P 

68 

PPAMP 

69 

THc  QUANTITIES  FACT,  ALAM,  ANO  AH®  ARE  IN  THE  INPUT  LIST 

PPAM.P 

70 

OF  THE  SUBROUTINE.  NOTE  THAT  THESE  ARE  YIELO  INDEPENOEN 

PPAM® 

71 

_ 

PPAKP 

72 

THE  SEMEME  OF  STORAGE  *CR  AMPLTO (Jl  ANO  ®HASQ( J>  IS  THE 

PPAM® 

73 

SAME  AS  .'OR  OMMOO (J)  ANQ  VPMOD(J).  SEE  SUBROUTINE  ALLMO 

PPAMP 

79 

PPAMP 

75 

LANGUAGE  - 

FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-651S-9) 

PPAMP 

76 

PPAM® 

77 

AUTHORS 

A.O.PirRCc  ANC  J. POSEY,  M.I.T..  JULY, 1968  

PPAMP 

78 

PPAMP 

79 

——CALLING  SEQUENCE 

PPAMP 

80 

PPAMP 

81 

SEE  THE  MAIN 

PROGRAM 

PPAMP 

82 

DIMENSION  KST(1),KFIN(1)  , OMMOO (1) « V°MQ0 (1)  * AM®(11 

PPAM.P 

83 

CIKENSION  AHPLTCtl) ♦PWASOfiJ 

PPAM® 

89 

THESE  OUANT ITIES  MUST  BE  DIMENSIONED.  THE  PROGRAM  USES  VARIABLE 

PPAMP 

85 

DIMENSIONING 

. FOR  ACTUAL  CIMENSIONS  ASSIGNED,  SEE  THE  MAIN  PROGRAM. 

PPAM* 

86 

CALL  PPAKP(TIELO,MCFNC,KST,KFIN,CHHOO. VPMOO, AMP, ALAM, FACT, 

PPAMP 

87 

1 AMPLTOt 

FMASQ)  . 

PPAMP 

88 

PPAM® 

89 

—EXTERNAL  SUBROUTINES  REQUIRED 

PPAMP 

90 

• 

PPAM® 

91 

SOURCE. 

PHASE  (PHASE  IS  CALLED  BY  SOURCE)  . . . 

PPAMP 

92 

PPAMP 

93 

——ARGUMENT  LIST 

PPAM®  . 

99 

PPAMP 

95 

YIELO 

R*9  . NO  INP 

PPAMP 

96 

hofno 

1*9  NO  IN® 

PPAMP 

97 

KST 

1*9  VAR  IN" 

PPAMP 

98 

KFIN 

1*9  VAR  INP 

PPAMP 

99 

OMMOO 

R*9  VAR  IN® 

PPAMP 

100 

VPMOO 

R*9  VAR  INP 

PPAMP 

101 

AMP 

R*9  VAP  INP 

PPAMP 

102 

ALAM 

R*9  NO  INP 

PPAMP 

103 

FACT 

R*9  NO  IMP 

PPAM® 

109 

AMPLTO 

R*9  VAR  OUT 

PPAMP 

i05 

PHASQ 

R*9  VAP.  OUT 

PPAMP 

106 

PPAMP 

107 

NO  COMMON  STORAGE  VS  USEO 

PPAMP 

108 

\ ■> 

PPAMP 

109 

— INPUTS  — 

P»AMO 

110 

PPAMP 

111 

YIELO 

*ENERGY  RELEASE  OF  EXPLOSION  IN  EQUIVALENT  KILOTONS  0 

PPAKP 

112 

TNT,  1 XT  S 9.2E19  ERGS. 

PPAM® 

113 

MOFNO 

sNUMEER  OF  MOOES  FOUND  IN  PREVIOUS  TABULATION  OF 

PPAM® 

119 

OIS'ERSICN  CQPVES. 

PPAM® 

115 

KST(N) 

»INOEX  OF  FIRST  TABULATED  POINT  IN  N-TH  MOOE. 

PPAMP 

116 

KFINCN) 

sINPEX  OF  LAST  TABULATED  POINT  IN  N-TH  MOOE.  IN 

PPAMP 

117 

GENERAL,  <F  III  (It)  sKST  (N  *1 ) -1 , 

P PAM® 

118. 

OMMOO(N) 

=AP®SY  STORING  ANGULAR  FREQUENCY  ORDINATE  OF  POINTS 

PPAMP 

119 

ON  CISPER3I0N  CURVES.  THE  NMOOE  MOOE  IS  STOREO  FOR 

PPAM® 

120 

N P.ETHEEN  KST  (NMOOE)  ANO  KFIN(NMOOE)  . 

PPAMP 

121 

VPMOO (N) 

*ARRAY  STORING  PHASE  VELOCITY  ORCINATE  OF  POINTS  ON 

PPAMP 

122 

OISPERSION  CURVES.  THE  NMOOE  MOOE  IS  STOREO  FOR 

PPAM.P 

123 

N BETWEEN  KST (NMOOE)  ANO  <FIN(NMOOE). 

PPAMP 

129 

AMP(N) 

SAM°LI TUOE  FACTOR  INOEOENOENT  OF  YIELO  COMPUTED  BY 

PPAM® 

125 

SUBROUTINE  PA-OOE  CC®RE3R0N0IMG  TO  ANGULAR  FREQUENCY 

PPAH® 

126 

OMMOO (N)  ANC  PHASE  VELOCITY  VFMOO(N). 

PPAMP 

127 

ALAM 

*A  SCALING  FACTOR  CEFENDENT  ON  HEIGHT  OF  BURST,  EQUAL 

P»AMP 

12# 

-142-  • 


e 

TO  CU8E  ROOT  OF  (PRESSURE  AT  GROUNOI /(PRESSURE 

AT 

PPAMP 

129 

c 

BURST  HEIGHT)  TIMES  (SOUND  SPEED  AT  GROUND) /SOUKO 

ppamp 

130 

c 

S»EEO  AT  BURST  HEIGHT). 

PPAMP 

131 

c 

FACT 

»A  GENERAL  AMPLITUDE  FACTOR  OEFENOENT  ON  BURST 

HEIGHT 

PPAMP 

132 

c 

ANO  OBSERVE0  HEIGHT.  A PRECISE  DEFINITION  IS 

GIVEN 

PPAMP 

133 

e 

IN  THE  LISTING  OF  SUBROUTINE  PAMPOE. 

PPAM° 

134 

c 

PPAMP 

135 

c 

OUTPUTS 

PPAMP 

136 

e 

PPAMP 

137 

c 

ANPLTO(N) 

sAMPLITUCE  FACTOR  REPRESENTING  TOTAL  MAGNITUDE 

OF 

PPAMP 

138 

c 

FOURIER  TRANSFORM  OF  THE  CONTRIBUTION  TO  THE  WAVEFOR 

PPAMO 

139 

e 

OF  A SINGLE  GUIDED  MODE  AT  FREQUENCY  OMMOO(N). 

IT 

PPAMP 

140 

c 

REPRESENTS  THE  AMPLITUDE  OF  THE  NMOCE-TH  MODE 

IF  N I 

PPAMR 

141 

c 

BETWEEN  KST (NKOOE)  ANO  XFIN(NKOOE).  INCLUSIVE. 

THE 

PPAMP 

142 

c 

PPECISE  CEFINITION  IS  GIVEN  IN  THE  ABSTRACT. 

PPAMR 

143 

c 

PHASQCN) 

sPHASE  LAG  AT  FREQUENCY  OMMOO(N)  FOR  NMOCE-TH  MOOE  WH 

PRAMP 

144 

c 

N IS  BETWEEN  KST(NMCOE)  ANO  KFIN(NMOOE) . INCLUSIVE. 

PPAM» 

145 

c 

THE  INTEGRAND  IS  UNCERSTOOO  TO  HAVE  THE  FORM 

PPAMP 

146 

c 

AMPLTC*CCS (OMMOO* (TIMt-OISTANCE/VPMOO) ♦PHASO) . 

PPAMR 

147 

c 

PPAMP 

148 

c 

— — PROGRAM  FOLLOWS  BELOW—— 

PPAM® 

149 

c 

PPAH» 

150 

c 

• 

PPAMR 

151 

c 

DIMENSION  STATEMENTS  USING  VARIABLE  CIMENSIOHING 

PPAM» 

152 

DIMENSION 

KST(l) ,X FIN U>. OMMOO (i)«VPMOO(i)»AM»(l> 

PPAM® 

153 

DIMENSION 

AMPLTO(l) «PHASQ(1)  ... 

PPAMP 

154 

e 

PPAM® 

155 

0«(YIEL0)**(G.I2’333)  ........  .. 

PPAMP 

156 

ALAMP*0*  alam 

PPAM® 

157 

e 

PPAM® 

158 

c 

START  OF  00  LOOP.  II  IS  MCOc  NUMBER 

PPAMP 

159 

00  20  11= 

I fMOFN’O  * . . 

* 

PPAMP 

160 

K1*KST (II) 

PPAM® 

161 

k2*kfin( hi : ' 

PPAM® 

162 

c 

* ' ’*  •! 

PPAMP 

163 

00  2C  J=Klt K2  ... 

PPAMP 

164 

C COMPUTATION  CF 

SCALEC  FRECUENCY  OMERAT 

PPAMP 

165 

OMERAT=OmmO0(J)«ALAMP  ........  ’ . 

PPAM® 

166 

C 

COMPUTATION  CF 

SORT <K ) 

PPAM® 

167 

AKAYSQ  = A3S(OMMCO(J)/VPMOO{J>  ) . . 

PPAM® 

168 

AKAY  * SORT  ( AKAYSQ) 

PPAMP 

169 

c 

P®AH® 

170 

CALL  SOURCStOMEPAT.FTMAG.FTPHSE. CRAG. OPHSFI 

PPAMP 

171 

AMFLTO(J)= 

(0«*2)*FACT*FTMAG*AMFCJ>*AKAV/OMMCO(J) 

PPAMP 

172 

20  PHASQ(J) =• 

75*3. 14159-FTPHSE 

PPAM® 

173 

c 

ENO  OF  00  LOOP 

PPAM® 

174 

c 

PPAMP 

175 

RETURN 

PPAMP 

176 

ENO 

PPAMP 

177 
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SUBROUTINE  PRATMO 

PRATMO 

1 

e 

PRATMO 

(SUBROUTINE)  S/1/68  LAST  CARO  IN  OECK  IS 

PRATHO 

2 

c 

PRATMO 

3 

c 

—ABSTRACT— 

PRATHO 

4 

c 

PRATMO 

5 

c 

TITLE  - PRATHO 

PRATHO 

6 

c 

PROGRAM  TO  PRINT  OUT  PARAMETERS  QEFINING  THE  NOOEt 

MULTILAYER 

PRATMO 

7 

c 

ATMOSPHERE.  A LISTING  IS  PRINTED  OF  LAYER  NUMBER, 

HEIGHT  OF 

PRATMO 

8 

c 

LATER  BOTTOM,  HEIGHT  OF  LAYER  TO»,  LAYER  THICKNESS, 

SOUND  SPEE 

PRATMO 

9 

c 

ANO 

OF  X ANO  Y COMPONENTS  OF  HIND  VELOCITY. 

PRATHO 

10 

e 

PRATMO 

11 

c 

LANGUAGE 

- FORTRAN  IV  (360,  REFERENCE  MANUAL  C24-6515-4) 

PRATMO 

12 

c 

PRATMO 

13 

e 

AUTHORS 

- A. O. PIERCE  ANO  J.FOSEY,  H.I.T.,  AUGUST, 1968 

PRATMO 

14 

c 

. 

PRATHO 

15 

c 

——CALLING  SEQUENCE—" 

PRATMO 

16 

c 

PRATMO 

17 

c 

SEE  THE  MAIN  PROGRAM 

PRATMO 

18 

c 

DIMENSION  CI(100).VXI (100) ,VYI (100)  .HI  (10 0) 

PRATHO 

19 

c 

COMMON 

IMAX, Cl. VXI, VYI, HI  (THESE  MUST  BE  IN  COMMON) 

PRATMO 

20 

c 

• CALL  PRATMO 

PRATMO 

21 

c 

PRATHO 

22 

c 

—EXTERNAL  SUBROUTINES  REQUIRE0 

PRATMO 

23 

c 

PRATMO 

24 

c 

NO  EXTERNAL 

SUBROUTINES  ARE  REQUIRED. 

PRATMO 

25 

c 

. 

• maV 

PRATMO 

26 

c 

")  —ARGUMENT  LIST— 

PRATMO 

27 

c 

: 

PRATMO 

24 

c 

COMMON  STORAGE  USEO 

PRATMO 

29 

c 

COMMON 

INAX.CI.VXI.VYI.HI 

PRATMO 

70 

c 

. 

PRATMO 

31 

c 

IMAX 

1*4  NO  IN® 

PRATHO 

32 

c 

Cl 

R*4  100  IMP 

PRATMO 

33 

c 

, VXI 

R*4  ICC  IMP 

PRATMO 

34 

c 

VTI 

R*4  100  INP 

PRATMO 

35 

c 

HI 

R*4  100  IMP  • 

PPATMO 

36 

c 

* ! • 

PRATMO 

37 

c 

—INPUTS— 

PRATMO 

38 

c 

PRATMO 

39 

c 

IMAX 

aNUMSSR  OF  LAYERS  OF  FINITE  THICKNESS 

PRATMO 

40 

c 

Cl  (I) 

=SOUNO  SFEEC  IN  KM/SEC  IN  I-TH  LAYER 

PRATHO 

41 

c 

VXI  (I) 

=X  COMPONENT  OF  WINC  VELOCITY  IN  T-TW  LAYER  (KM/SEC) 

PPATMO 

42 

c 

vrid) 

„ 3Y  COMPONENT  OF  HIND  VELOCITY  IN  I-TH  LAYE 

R (KH/SEC) 

PPATMO 

43 

c 

Hid) 

^THICKNESS  IN  KM  OF  I-TH  LAYER  OF  FINITE  THICKNESS 

PRATMO 

44 

c 

' 

PRATMO 

45 

c 

——OUTPUTS 

PPATMO 

46 

c 

PRATMO 

47 

c 

THE  ONLY  OUTFUT  IS  A PRINTOUT 

PRATMO 

44 

c 

PRATMO 

49 

c 

—example 

PRATMO 

50 

c 

• 

PPATMO 

51 

c 

MOOEL  ATMOSPHERE  OF  10  LAYERS  (TOP  OF  NEW 

»AGE) 

PRATMO 

52 

c 



( IHAX  * 9) 

PP.ATMO 

53 

c 

PRATMO  ■ 

54 

c 

LAYER 

23  ZT  H C 

VX 

PRATMO 

55 

c 

10 

22.50  INFINITE  INFINITE  0.2972 

0.0092 

PRATMO 

56 

c 

9 

20.00  22.50  _ 2.50  Q.295S 

0.0093 

PPATMO 

57 

c 

a 

17.50  23.00  2.50  C.2938 

0.0114 

PRATMO 

54 

c- 

7 

15.09  17.50  2.50  0.2931 

0.0144 

PRATMO 

59 

8 

6 

12.50  15.00  2.50  0.2971 

0.0165 

PRATHO 

60 

e 

5 

10.00  12.50  2.50  0.2951 

0.0160 

PRATMO 

61 

c 

A 

7.50  10.00  2.50  0.3012 

0.0149 

PRATMO 

62 

e 

. 3 

5.00  7.50  2.50  G.3.U7 

0.0118 

PPATMO 

63 

c 

2 

2.50  5.00  2.50  0.3268 

0.0094 

PRATMO 

64 

r 


Wi- 


m 


ISS^ 


m 


I" 
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c 

. ..1  . 0.  . ..  2.50  2.50 

0.3396  0.0057 

PRATMO 

65 

e 

RRATHO 

66 

c 

Z6*HEIGHT  Of  LAYS*  90TT0M  IN  KM 

PRATMO 

67 

c 

2T*HEICHT  Of  LAYER  TOO  IN  KM 

(THE  VY  COLUMN  IS 

PRATMO 

63 

c 

....  . . H *WIOTrt  OF  LAYER  IN  KM 

NOT  SHOWN  9ECAUS 

PRATMO 

69 

c 

C SSOUKO  SFEEO  IN  KM/SFC 

OF  LACK  OF  SPACE 

P»ATMO 

70 

c 

VX»X  CCMP.  OF  WINO  VEL.  IN  KM/SEC 

IT  DOES  APPEAR  0 

PRATMO 

71 

c 

V»*t  COMP.  OF  HIND  VEL.  IN  KM/SEC 

PRINTOUT.) 

PPATMO 

72 

e 

PRATMO 

73 

c 

- — -PROGPAM  FOLLOWS  BELOW—— 

PRATMO 

76 

c 

PRATMO 

75 

c 

PRATMO 

76 

c 

DIMENSION  AND  COHMON  STATEMENTS  LOCATING  INPUT 

PRATMO 

77 

OIHENStON  CI(100),VXI(100)  ,VYI(100)  »HI(100>. 

ZK100) 

PRATMO 

78 

COMMON  IMAX.CI. VXI« VYI.HI 

PRATMO 

79 

c 

PRATMO 

80 

c 

LET  JET  DENOTE  THE  INDEX  OF  THE  UPPER  HALFSPACE 

PRATMO 

81 

JET«IMAX*1 

PRATMO 

82 

c 

r. 

PRATMO 

83 

c 

PRINTING  OF  HEADING 

PRATMO 

06 

WRITE  16.111  JET 

PPATMO 

85 

11  FORMAT (1H1.14X.15HM00EL  ATMOSPHERE  0F.I4.7H 

LAYERS//) 

PRATMO 

86 

WRITE  (6.21) 

PRATMO 

87 

21  FORMAT (1H  « 2X.5HLAYEK. TX.2HZB.10X.2HZT. 11X. 1HH. 11X.1HC? 11X.2HVX. 

PRATMO 

88 

. 110X.2HVY) 

PRATHO 

89 

c 

* 

PRATMO 

90 

IFtIMAX  .EO.  0)  GO  TO  33 

PRATMO- 

91 

c 

PRATMO 

92 

c 

ZICI)  DENOTES  THE  HFIGHT  OF  TOP  Of  I-TH  LAYER  Of  FINITE  THICKNESS 

P»ATMO 

93 

ZI(U=HI(1> 

PRATMO 

96 

IF ( IMAX  .EQ.  1)  GO  TO  31 

m » ~ 

PRATMO 

95 

OO  30  1*2. IMAX 

PRATHO 

96 

30  zi(i)=ziti-i)*Him 

PRATMO 

97 

31  CONTINUE 

PRATMO 

93 

c 

PRATHO 

99 

c 

Printout  for  upper  halfspace 

PRATMO 

100 

XUV*ZI (IMAX) 

PRATMO 

101 

33  IF ( IMAX  ,EO.  0)  XUVsO.O 

PPATMO 

1C2 

c*ci(JEn 

PRATHO 

103 

VX*VXI (JET) 

PRATMO 

104 

VY*VYI (JET) 

PRATMO 

1C5 

WRITE  (6,41)  JET.XUV.C.VX.VY 

PRATMO 

1C6 

61  FORHAT11H  ,I7.F12.2,4X,8HINFINITE,4X,flHlNFINITE,3F12.4) 

PRATMO 

1C7 

c 

. 

PRATHO 

1 Of 

IF(  IMAX  .ED.  0)  GO  TO  60  . . 



PRATHO 

109 

IF ( IMAX  .ED.  1)  GO  TO  52 

PRATMO 

110 

c 

' 

PRATMO 

111 

c 

TABULATION  FOR  LAYERS  2 THROUGH  IMAX 

PRATMO 

112 

00  50  J*2,IHAX 

PRATHO 

113 

I«IMAX»2-J 

PRATHO 

114 

IL»I-l 

PRATMO 

115 

50  WRITE  (6.51)  I»Zt(IL)«ZI(I)»HI(I)»CI(I).VKI(I) , VYI (I)  . 

PRATHO 

116 

51  FORMAT (1H  ,IZ,3F12,2,3F12.4) 

PRATMO 

117 

c 

PRATHO 

118 

c 

TABULATION  FOR  LAYEP  1 . 

PRATMO 

119 

52  I»1 

PRATMO 

120 

USTEO=0 . 0 

PP.ATMO 

121 

WRITE  (6.51)  I.USTEO.ZKD.HKD.CKD.VXKD.VYKI) 

PPATMO 

122 

c 

PRATMO 

123 

c 

PRINTOUT  OF  EXPLANATIONS 

PRATMO 

124 

60  WRITE  (6,61) 

PRATMO 

125 

61  FORHATtlH0.15X,31HZQ=HSIGHT  OF  LAYER  SOTTOH 

IN  KH/  1H  » 15X  ,2  8HZT - 

OPATMO 

126 

. 

1EIGHT  OF  LAYER  TCP  IN  KM/1H  .15X.23HH  =HIOTH  OF  LAYER  IN  KM/1H  , 

PRATHO 

127 

215X.24HC  =SOUNO  SPEED  It.  KM/SEC/1H  ,15X,33HVX=X  COrP.  OF  WIND  VEL 

PPATMO 

128 

3 IN  KM/SEC/IH  ,15X,33HVY=Y  COHP.  OF  WINO  VEL.  IN  KH/SEC) 

PP.ATMO 

129 

c 

PRATMO 

130 

RETURN 

PRATMO 

131 

END 

PRATMO 

132 

i 
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SU9R0UTINE  RRRR(ON£GA,AKX,AKY,RPP.K) 

RRRR 

1 

e 

RRRR  (SUBROUTINE J 8/1/68  LAST  CAR!)  IN  OEC<  IS 

RRRR 

2 

c 

RRRR 

3 

c 

——ABSTRACT 

RRRR 

4 

e 

RRRR 

5 

c 

TITLE  - 

• RRPR 

RRRR 

6 

c 

THIS  SUBROUTINE  COMPUTES  A 2-BY-2  TRANSFER  MATRIX  WHICH  CONNEC 

RRRR 

7 

c 

SOLUTIONS  OF  THE  RESICUAL  EQUATIONS  AT  THE  BOTTCM  OF  THE  UPPER 

RRRR 

8 

c 

malfsface  to  solutions  at  t«e  GROUNO  by  the  RELATIONS 

RRRR 

9 

c 

RRRR 

10 

c 

PHIKGROUNO)*  RPP(l,l)»PHIl(ZT(IMAxn*RPF(l,2)*PHI2tZT(IM 

RRRR 

11 

c 

RRRR 

12 

c 

PHI2 (GROUND) s RPP(2.i)*FHIl(ZT(IMAX)»+RPPt2,2)*PHI2(ZT(IM 

RRRR 

13 

c 

RRRR 

14 

c 

HHERE  ZTtlHiS*)  IS  THE  HEIGHT  OF  THE  TOP  OF  THE  IMAX  LAYER  ANO 

RRRR 

IS 

c 

* 

CONSEQUENTLY  the  HEIGHT  0*  THE  BOTTOM  OF  THE  UPPER  HALFSPACE. 

RRRR 

16 

c 

THE  PUNTIONS  FHIKZ)  ANO  PHI2(Z)  SATISFY  THE  RESIDUAL  EQUATION 

RRRR 

17 

c 

RR»R 

18 

c 

Ot»HIl)/CZ  * A(l,li*PHIl(Z)  ♦ A(1,2)*PHI2(ZI 

RRRR 

19 

c 

RRRR 

20 

c 

0«PHI2)/CZ  » At2,l)*PHIl(Z»  ♦ A (2 ,2) *PHI2(Z) 

RRRR 

21 

c 

RRRR 

22 

c 

HHERE  THE  A(I.J)  ARE  FUNCTIONS  OF  ALTITUDE  BUT  CONSTANT  IN  EAC 

RRRR 

23 

c 

LAYER. 

RRRR 

24 

c 

RRRR 

25 

c 

IF  HE  LET  EM  (I)  BE  THE  EH  MATRIX  (COMPUTED  OY  SUBROUTINE  MKHH) 

RRRR 

26 

c 

FOR  THE  I-TH  LAYER.  THEN  (IN  MATRIX  NOTATION) 

RRRR 

27 

c 

RRRR 

28 

c 

R*P  « £M(l)*£M(2)».....»EM(IM»X-t)*tM(r.«X) 

RRRR 

29 

c 

RR»R 

3C 

d 

THE  ABOVE  FORMULA  IS  US^O  TO  COMPUTE  THE  RPOfl.J).  ' 

RRRR 

31 

c 

RRPR 

32 

c. 

THE  PARAMETERS  CEFIMNG  THE  MULTILAYER  ATMOSPHERE  ARE  PRESUMED 

0,000 

33 

c 

TO  BE  STORED  IN  COMMON. 

RRPR 

34 

c 

RRRR 

35 

c 

LANGUAG 

E - FORTRAN  IV  (363.  REFERENCE  MANUAL  C28-651S-4) 

RRRR 

36 

c 

RRRR 

37 

c 

AUTHOR 

- A. 0. PIERCE.  M.I.T..  AUGUST. 19o8 

RRRR 

38 

c 

. 

RPPR 

39 

c 

——CALLING  SEQUENCE  — 

RPRR 

4P 

c 

RRRR 

41 

c 

SEE  SUBROUTINE  NM(IFN 

RRPR 

42 

c 

CIM 

SNSICN  Clt-CCl.VXI (100) .VYI(lOS) .HI(100) 

RPRR 

43 

c 

COMMON  IMAX. Cl. VXI.VYI  ,HI  (THESE  MIJST  BE  STO&EC  IN  COMMON 

RRRR 

44 

c 

DIM 

ENSI3N  R°°  (2 . 21 

RRRR 

45 

c 

CALL  R3RH(QHcGA.AKX»AKY»RP°*iO 

RRRR 

46 

c 

RRPR 

47 

c 

—EXTERNAL  SU9RCL’TINES  REQUIRED 

RRRR 

48 

c 

RRRR 

49 

c 

HMHM.AAAA.CAI.SAT 

RRRR 

50 

c 

RRRR 

51 

c 

— ARGUMENT  LIST— 

RRRR 

52 

c 

RRRR 

53 

c 

OMEGA  R*4  NO  IN» 

RRRR 

54 

c 

AKX 

R*4  NO  INP 

RRPR 

55 

c 

AKY 

R»4  NO  IMP 

RRRR 

56 

c 

RP" 

1 R *4  2-BY-2  OUT 

RRRR 

57 

c 

K 

1*4  NO  OUT  (ALNAYS  OUTPUT  AS  K=0) 

RRRR 

58 

c 

RRRR 

59 

c 

COMMON 

STORAGE  USEO 

RPRR 

60 

c 

COMMON  IMAX.CZ.VXI.VYI.HI 

RRRR 

61 

0 

RRRR 

62 

c 

IMAX  1*4  NO  IN® 

RPRR 

63 

c 

Cl 

R*4  IOC  INP 

RRRR 

64 

5 
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c 

VXI  a*4  100  IN* 

RRRR 

65 

c 

vri  r»4  ico  in* 

RRRR 

66 

c 

HI  R*4  100  IM* 

RRRR 

67 

c 

RRRR 

68 

c 

-•••INPUTS-—" 

• 

RRRR 

69 

c 

RRRR 

70 

c 

OMEGA  =AN'GL'LA»  FREQUENCY  IN  R40/SEC 

RPRR 

71 

c 

AKX  =X  COMPONENT  OF  H0SI20NT4L  WAVE  NUMBER  VECTOR  IN 

1/KM 

RRPR 

72 

c 

AKY  *Y  COMPONENT  0*  NODI 20NT4L  HAVE  NUMBER  VECTOR  IN 

1/KM 

RRRR 

73 

c 

IHAX  =NUHOE..  OF  LAYEP3  OF  FINITE  THICKNESS 

RRRR 

74 

c 

CKI)  *SOUNO  SPEEC  IN  KM/3CC  IN  I-TH  LAYER 

RRRR 

75 

c 

VXI (I)  =X  CCMPONCNT  OF  HINC  VELOCITY  IN  I-TM  LAYER  (KM/SEC) 

RRRR 

76 

c 

VYKII  *Y  COMPONENT  OF  HINC  VELOCITY  IN  t-TH  LAYER  (KM/SECI 

RRRR 

77 

c 

Hill)  =THICKMESS  IN  KH  OF  I-TM  LAYER  OF  FINITE  THICKNESS 

RRRR 

78 

c 

RRRR 

79 

c 

—OUTPUTS  — 

RRRR 

80 

c 

RRRR 

81 

c 

RPP  *2-eY-2  TRANSFER  MATRIX  WHICH  CONNECTS  SOLUTIONS 

OF 

RRRR 

82 

c 

THE  RESIDUAL  EOUATICNS  AT  THE  MOTTO!*  OF  THE  UP*ER 

RPRR 

83 

c 

HALPSPACE  TO  SOLUTIONS  AT  THE  G»OUNO. 

RRRR 

84 

c 

X *OUMMY  PARAMETER  ALWAYS  TETURNEO  AS  0. 

RRRR 

85 

c 

RRRR 

86 

c 

-—-PROGRAM  FOLLOWS  BELOW— 

RRRR 

87 

c 

RRRR 

88 

c 

RPRR 

89 

c 

OIMENSIO'I  ANT  COMMCN  STATEMENTS  LOCATING  PARAMETERS  CEeINING  THE 

HO0E 

R»R» 

90 

c 

HULTILAYER  A TMOSRHf PE 

RPRR 

91 

dimension  ci<ioo).vxitioo).vYi(iua»*Hmoe» 

RRRR 

92 

COMMON  IMAX.CI.VXI.VYI.HI 

RRRR 

93 

c 

RRRR 

94 

DIMENSION  EMr2,2l,AINT(2.2T.RPP(£.2> 

RRRR 

95 

K«0  . . ..  1 . 

RRRR 

96 

c 

RRRR 

97 

c 

RPP  AT  TO*  OF  MAX  LAYER  IS  THE  IDENTITY  MATRIX  ' ..  .. 

RRRR 

98 

• »P*<1,1»=1.0 

RRRR 

99 

RP*(1«2) =0.0 

RRRR 

100 

RPPJ2. 11=0.0 

RRRR 

101 

RP*(2,2I  =1.0  

RRRR 

102 

c 

START  OF  OO  LOOP  RUNNING  THROUGH  IMAX  LAYERS  IN  DESCENDING  OROER 

RRRR 

103 

c 

RRRR 

104 

DO  100  JASA=l,IMAX 

RRRR 

105 

IASA=IHAX+1-JASA 

RRRR 

106 

c 

IASA  IS  THE  INOEX  OF  THE  LAYER  CURRENTLY  UNDER  CONSIDERATION 

RPRR 

107 

c 

RRRR 

108 

c 

COMPUTATION  CF  EM  MATRIX  FCR  IASA  LAYER 

RRRR 

109 

C=CI  ( IASAI  . 

RRRR 

110 

VX*VXI(IASAI 

RRRR 

111 

VY*VYI  (IASA)  ..  . 

RRRR 

112 

H*HI(IASA) 

RRRR 

113 

CALL  MMMMtOMEGA.AKX.AKY.C.VX.VY.H.EMJ  ...  .... 

RRRR 

114 

c 

RRRR 

115 

c 

MULTIPLICATION  OF  RPP  AT  TCP  OF  IASA  LAYER  3Y  EM  FOR  IASA  LAYER 

RRRR 

116 

DO  SO  1=1,2 

RRRR 

117 

00  80  J=l<2 

RRRR 

118 

80  AXNT!I,J)=EMfI,l>*RPPU,JMEMtI,2»*RPPt2,J» 

RRRR 

119 

c 

RRRR 

120 

c 

CURRENT  AINT  IS  PPP  AT  BOTTOM  0*  IASA  LAYER  ' 

RRRR 

121 

00  S5  1=1,2  .....  ...  

RRRR 

122 

00  85  J-l ,2 

RRRR 

123 

85  RP*(I.JI=AINT(I,JJ  

RF.RR 

124 

c 

RRRR 

125 

100  CONTINUE 

RRRR 

126 

c 

ENO  OF  OUTER  00  LOO» 

RRRR 

127 

c 

RRRR 

128 

c 

CURRENT  RP*  IS  THAT  AT  BOTTOM  OF  FIRST  LAYER 

RRRR 

j.S'i 

RETURN 

RRRR 

130 

ENO 

RRRR 

131 

OOOOOOOOOOOOOOOO 000000000000000000000000000000000000000000 


f 
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SUBROUTINE  RTMItX,F,FCT,XLI,XRI«EoS,IEM0,XER)  ' RTMI 

RTMI 

RTMI 

RTHI 

SUBROUTINE  RTNX  RTMI 

RTHI 

PURPOSE  RTMI 

TO  SOLVE  GENERAL  NONLINEAR  EOUATIONS  OF  THE  FORM  FCTtXI=0  RTHI 
....  8T  MEANS  OF  HUELLER-S  ITERATION  METHOD.  RTMI 

RTMI 

....  USAGE  RTHI 

CALL  RTMI  (X.F.FCT. XL I.XRI.EPS <IENO. I ER)  RTMI 

PARAMETER  FCT  FECURSS  AN  EXTERNAL  STATEMENT.  RTMI 

RTMI 

DESCRIPTION  OF  ®ARAM£TE“S  RTMI 

X - RESULTANT  RCO*  OF  EQUATION  FCT(X>*0.  RTMI 

P - RESULTANT  FUNCTION  VALUE  AT  ROOT  X.  RTMI 

FCT  - NAME  OF  THE  EXTERNAL  FUNCTION  SUBPROGRAM  USED.  RTMI 

XLI  - INPUT  VALUE  WHICH  SFECIFIES  THE  INITIAL  LEFT  eOUNO  RTMI 

OF  THE  SCOT  X.  RTMI 

. . XRI  - INPUT  VALUE  WHICH  S»ECIFIES  THE  INITIAL  RIGHT  90UN  RTMI 

OF  THE  fiCCT  X.  RTMI 

EPS  - INPUT  VALUE  WHICH  SPECIFIES  THE  UPPER  BOUND  OF  THE  RTMI 
ERROR  OF  RESULT  X.  RTHI 

_ ..  XENO  - MAXIMUM  NUMGCF  OF  ITERATION  STEPS  SFECIFIEO.  RTMI 

IER  - RESULTANT  ERROR  PARAMETER  COOEO  AS  FOLLOWS  RTMI 

IER*C  - NO  ERROR,  RTMI 

IER«i  - NO  CONVERGENCE  AFTER  IEUO  ITERATION  STEPS  RTMI 
. ...  ..  FOLLOWED  BY  IENO  SUCCESSIVE  STEPS  OF  P.TMI 

BISECTION,  RTMI 

XCR*2  - BASIC  ASSUMPTION  FCT  (XLI) *FCT (XHI>  LESS.  RTMI 
THAN  OR  EQUAL  TO  7ER0  IS  NOT  SATISFIED.  RTHI 

• RTMI 

REMARKS  RTMI 

THE  PROCEOURE  ASSUMES  THAT  FUNCTION  VALUES  AT  INITIAL  RTMI 

BOUNDS  XLI  ANC  XRI  HAVE  NOT  THE  SAKC  SIGN.  IF  THIS  OASIC  RTMI 
ASSUMPTION  IS  NOT  SATISFIED  3T  INPUT  VALUES  XLI  «N0  XRI,  TH  RTHI 
PROCEDURE  IS  OYPASSEC  AMO  GIVES  THE  ERROR  MESSAGE  IER*2.  RTMI 

RTMI 

SU3P0UTINE3  ANO  FUNCTION  SUBPROGRAMS  REDUIREO  RTMI 

THE  EXTERNAL  FUNCTION  SUBPROGRAM  FCTfXJ  MUST  BE  FURNISHEO  RTMI 
BY  .THE  USER.  RTMI 

RTMI 

METHOO  RTMI 

SOLUTION  OF  EQUATION  FCTfX)=0  IS  DONE  BY  HEANS  OF  HUELLER-S  RTMI 
ITERATION  NETHCO  OF  SUCCESSIVE  BISECTIONS  ANO  INVERSE  RTMI 


..  PARABOLIC  INTERPOLATION,  WHICH  STARTS  AT  THE  INITIAL  eCUNCS  RTMI 
XLI  AND  XRI,  CONVERGENCE  IS  QUADRATIC  I®  THE  CERIVATIVE  OF  RTMI 
. FCT (X)  AT  ROOT  X IS  NOT  EQUAL  TO  ZERO.  ONE  ITERATION  STE°  RTMI 
REQUIRES  Tt-o  EVALUATIONS  OP  FCT.fXJ.  FOR  TEST  CM  -SAT  ISFAOTOR  RTMI 
ACCURACY  SEE  RCRfULAS  <3,<*>  OF  MATHEMATICAL  DESCRIPTION.  RTMI 

FOR  REFERENCE.  SEE  G.  K.  KRISTIANSEN,  ZERO  OF  ARBITRARY  RTMI 
...FUNCTION,  BIT,  VOL.  3 U963>.  PR.205-2C6.  RTHI 

RTMI 

RTHI 

RTHI 

RTMI 

RTHI 

PREPARE  ITERATION  RTMI 


IER=0  RTMI 

XL»XLI  RTMI 

XR»XRI  RTMI 

. X*XL  RTMI 

,TOL*X  RTMI 


1 

2 

3 

4 

5 

6 
T 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
78 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
50 
60 
61 
62 

63 

64 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 


F*FCTCTOL»  

xfifu.u.i 

1 CONTINUE 
CONYsASStn 
F*FCT(TOLI/CONV 
FL*F 

x*xr 

TOL*X 

F*FCTtTCLJ/CQNV  ..  • 

IF(F»2,16,2 

2 FR*F 

IF (SIGN (l.» FL) ♦SIGN(1.»FRJ ) 25* 3 *25 

BASIC  ASSUMPTION  FL*FR  LESS  TUAN  0 IS  SATISFIED. 
GENERATE  TOLERANCE  FOR  FUNCTION  VALUES. 

3 1*0 

TOLF*EPSMAQStF)  ♦1.01*100.0 


START  ITERATION  LOOP 
4 X«I»1 


START  BISECTION  LOOP 
00  13  K*l,IENO 

X*.5*<XL+XRI  

TOL*X 

F*FCT(TOUXCONV 
XFtFI 5.16.5 

5 IFTSIGN(1..FMSIGN(1.*FR>I  2.6.2 


INTERCHANGE  XL  ANO  XR  IN  ORDER* TO  GET  THE  SAHS  SIGN  IN  F ANO  FR 

6 TOL*XL 
XL*XR 
XR*TOL 

TOL*FL  - 

fl«fr 

FR*TOL  7- 

7 TOL*F-FL 
A*F*TOL 
A*A*A 

IF(A3S(A)-1.QE35>  71.71.130  .... 

71  CONTINUE 

QUEST*FRMFR-FL>  - ■ 

IF ( A93 (DUES  TJ -1 . ?S35 ) 72.72.130 

72  CONTINUE  - 

IF (A-FR*  (FR-FL) >4.9.9 

6 IF(I-IEN0)17.17.9 
9 XR*X 
FR*F 

TEST  ON  SATISFACTORY  ACCURACY  IN  BISECTION  LOOP 
TOL*E»S 

A*ABSCXR)  

IF(A-1.) 11.11.10 

10  TOL*TOL*A 

11  IF(i\9S(XR-TL>-T0U  12.12.13 

12  XF(A9S(FR-FL>-TQLF) 14,14,13 

13  CONTINUE 

ENO  OF  OISSCTICN  LOOP  . .... 


NO  CONVERGENCE  AFTER  IENC  ITERATION  STEPS  FOLLOWEO  BY  IEN 0 
SUCCESSIVE  STEFS  OF  CISECTION  C«  STEAOILY  INCREASING  FUNCTION 
VALUES  At  RIGHT  BOUNDS.  ER°OR  RETURN. 

30  CONTINUE 


RTMI 

65 

RTHI 

66 

RTNt 

67 

RTHI 

6ft 

RTHI 

65 

RTHI 

70 

RTHI 

71 

RTHI 

72 

RTHI 

73 

RTHI 

74 

RTHI 

75 

RTHI 

76 

RTHI 

77 

RTHI 

78 

RTHI 

75 

RTHI 

80 

RTMI 

81 

RTHI 

82 

RTMI 

63 

RTMI 

84 

RTMI 

85 

RTHI 

86 

RTMI 

87 

RTHI 

88 

RTHI 

85 

RTMI 

50 

RTMI 

51 

RTHI 

52 

RTMI 

53 

RTHI 

54 

RTMI 

55 

RTMI 

56 

RTMI 

57 

R7HI 

58 

RTMI 

59 

RTMI 

100 

RTMI 

101 

RTMI 

1C2 

RTHI 

103 

RTMI 

104 

RTMI 

105 

RTMI 

106 

RTMI 

107 

RTHI 

108 

RTMI 

109 

RTMI 

110 

RTMI 

111 

RTMI 

112 

RTHI 

113 

RTHI 

114 

RTMI 

115 

RTMI 

116 

RTMI 

117 

RTMI 

118 

RTMI 

119 

RTMI 

120 

RTMI 

121 

RTMI 

122 

RTMI 

123 

RTMI 

124 

RTMI 

125 

RTMI 

126 

RTMI 

127 

RtMI 

•■DTV**** 


nnon  on  on  on 


XER*1 

RTHl 

129 

F*C0NV»F 

RTMI 

130 

FR*CQNV*  FR 

RTHI 

131 

FL*C0NV»FR 

RTMI 

132 

0*2  •*fXL-X>\!  /iXL^XRI 

RTHI 

133 

0A*AQS<0) 

RTHI 

136 

IF  (QA  ,LT.  l.GE-6)  GO  TO  16 

RTHI 

135 

IER  * 1 

RTHI 

136 

WRITE (6, 723)  IER,X 

RTHI 

137 

WRITE (6*  726)  F.XLI.Xfil 

RTHI 

136 

WRIT£C6,725>  FR,FL,XF,XL.QA  . , . . 

RTHI 

139 

GO  TO  16 

RTHI 

160 

16 

IFCA3SlFR)-A8S<Fim6,i&,15  . . ....  .. 

RTHI 

161 

15 

X*XL 

RTHI 

162 

F«Ft  ..  ....  ..  

RTHI 

163 

FL*C0NV»FR 

RTHI 

166 

FR*CONV*FR  ...  .....  .. 

RTHI 

165 

F*C0NV»F 

RTMI 

166 

16 

RETURN  . - ... 

RTHI 

167 

• . 

RTMI 

166 

COMPUTATION  OF  ITERATED  X-VALUE  BY  INVERSE  PARABOLIC  INTERPOIATIO 

P.TMI 

169 

ir 

A*FK-F 

RTHI 

150 

OX* CX-XL  >*FLM1«  ( A-TOL) /CA*tFR«FL>>)/TOL  . . 

RTMI 

151 

XM*X 

RTHI 

152 

fh*f  • 

RTHI 

153 

X*XL-0X 

RTHI 

156 

TOL*X  . . . / 

RTHI 

15S 

F*FCT  (TOD/CON  V 

RTHI 

156 

IFCFU8.16,la  ...... 

RTMI 

157 

RTMI 

156 

TEST  0*.  SATISFACTORY  ACCURACY  IN  ITERATION  LCGP  ’ 

RTMI 

159 

11 

Y0L»EPS  . 

RTMI 

160 

A*ABS(X) 

RTMI 

161 

* 

IF<A-1.)20,20,19 

RTMI 

162 

n 

T0L*T0L*A  

RTHI 

163 

20 

IF(A!)S(3X)*T0L  >21,21,22 

RTMI 

166 

21 

IFCAOSCFI-TOLF) 16,16.22 

RTHI 

165 

RTHI 

166 

PREPARATION  OF  NEXT  eiSECTICN  LCCP 

RTMI 

161 

22 

IF  t SIGN ( 1 . , F ) VS IGN  f 1 . »FL J > 26,21,26 

RTMI 

166 

23 

XK*X  . . . 

RTMI 

169 

FR*F 

RTMI 

170 

GO  TO  6 » 

RTHI 

171 

26 

XL*X 

RTMI 

172 

FL*F  . _ 

RTMI 

173 

XR*XH 

RTMI 

176 

FR«FM 

RTMI 

175 

GO  TO  6 

RTMI 

176 

ENO  OF  ITERATION  LOOP 

RTMI 

177 

. 

RTMI 

178 

..  • 

RTMI 

179 

ERROR  RETURN  IN  CASE  CF  WRONG  INPUT  DATA 

RTHI 

160 

25 

IER32 

RThI 

tel 

FL*CONV*FL 

RTHI 

182 

FR*CON\)*FR 

RTMI 

163 

F*COW*F 

RTHI 

166 

IER  * 2 

RTMI 

185 

WRITE<6,723»  IER,X 

RTMI 

166 

WRITE (6, 726)  F.XLI.XKI  

RTMI 

187 

WRITE C6»?2S>  FP.fL.XP.XL.QA 

RTMI 

168 

223 

FORMA T < 1H  ,6X,15HTROUOCi  IN  RT N 1 ,3X , 6HIER= , 16, 3X , 2HX* ,G15 , 1) 

RTMI 

189 

726 

FORMAT  C1H  ,3X,2Hfs,G15.1,3X, A*<XLI,XRI*,2G15, 3) 

RTMI 

190 

725 

FORMAT (1H  ,3X,6MFR,FL=.2G15.8,3X,6HXR,XL3,2G15.e,3X,JHQAs,G15.8) 

RTMI 

191 

RETURN 

RTMI 

192 

ENO 

RTMI 

193 

o o on  no  no  n o o o o o on o no no o o n o non o on o no o o o o on n o 
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FUNCTION  SAKX) 
SAX  (FUNCTION) 


7/25/6#  CAST  CARO  IN  OECK  IS 


——ABSTRACT 

TITLE  - SAI 

PROGRAM  TO  EVALUATE  FUNCTION  SAI(X>  FOR  GIVEN  VARIABLE  X. 

IF  X TS  NEGATIVE.  SAI  <X)=SIN{YI /Y  WITH  Y*S0RTt-X>.  IF  X IS 
POSITIVE.  SAKX)=SINH<Y)/Y  WITH  Y=SORTCX>.  THE  FUNCTION  IS 
ALSO  REPRESENTABLE  ev  TW£  POWER  SERIES 

SAI(X) * 1 X/(3FACT)  ♦ X**2/ (SFACTI  ♦ X**3/f7FACT>  ♦ ... 

LANGUAGE  - FORTRAN  IV  <360.  REFERENCE  MANUAL  C2'*-651S-‘»> 


AUTHOR 


- A. 0. PIERCE.  M.I.T..  JULY, 1968 


—CALLING  SEQUENCE— 

SAICANY  R*L  ARGUMENT)  NAY  BE  USEC  IN  ARITHMETIC  EXPRESSIONS 
—EXTERNAL  SUBROUTINES  REQUIRED— 

NO  EXTERNAL  SUBROUTINES  ARE  REQUIRED 
— ARGUMENT  LIST 


NO  CGMNON  STORAGE  IS  USEO 

——PROGRAM  FOLLOWS  BELOW— 


l IF ( AOS(X)  ,GT • l.E-15  I GO  TO  9 

ABS(X)  IS  SO  SMALL  THAT  SAI  IS  VIRTUALLY  1.0 
SAlsl.Q 

RETURN  ... 


CONTINUING  FROH  1 
9 Y*SQRT(A9S<X) ) 
IF  CXI  10.10.11 


X IS  LESS  THAN  0. 

10  SAI*SIN(Y)/Y 

. RETURN  . . 

X IS  POSITIVE.  SAI*  SINHIYI/Y. 

11  E*SXP(Y> 

SAIsO.?* <E-1./E)/Y 
RETURN 

. END 
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. 

SUBROUTINE  SOURCE (OMEGA, FTMAG, FTPMSE.OMAG.OFHSE) 

SOURCE 

1 

c 

SOURCE 

(SUBROUTINE)  8/15/68 

SOURCE 

2 

c 

SOURCE 

3 

c 

SOURCE 

4 

c 

-—ABSTRACT—— 

•SOURCE  ' 

5 

c 

SOURCE 

6 

e 

TITLE  - SOURCE 

SOURCE 

7 

c 

EVALUATION  CF  FOURIER  TRANSFORM  OF  NEAR  FIELC  ACOUSTIC  RESPONS 

SOURCE 

8 

c 

TO 

EXPLOSIVE  SOURCE 

SOURCE 

B 

c 

SOURCE 

to 

c 

SOURCE  COMPUTES  THE  FOURIER  TRANSFORM  OF  THE  NEAR  FIELD 

SOURCE 

It 

c 

PRESSURE  AT  1 KM  FROM  A 1 XT  EXPLOSION  AT  SEA  LEVEL.  TH 

SOURCE 

12 

c 

AMBIENT  PRESSURE  IS  ASSUMED  TO  3E  t.E6  0YNES/CH**2  ANO 

SOURCE 

13 

c 

THE  TIME  LAPSE  FROM  TIME  ZERO  IS  NEGLECTED  AN  EH“IRICA 

SOURCE 

14 

c 

FORMULA  FOR  THIS  PRESSURE  IS 

SOURCE 

15 

c 

SOURCE 

16 

c 

FCTI  « PAS  * (1  - (T/TAS) ) • EXPt  -T/TAS  ) ,'T  .GT. 

SOURCE 

17 

c 

SOURCE 

18 

c 

* 0 , T ,LT.  0 

SOURCE 

19 

c 

SOURCE 

20 

c 

WITH  FAS  a (34.45E»3>  * (1.61)  OYNES/CM**2 

SOURCE 

21 

c 

ANO  TAS  > C.33  SEC  . 

SOURCE 

22 

c 

SOURCE 

23 

c 

THEREFORE,  ITS  FOURIER  TRANSFORM  IS 

SOURCE 

24 

c 

SOURCE 

25 

c 

FTIOMEGAJa  -J  • OMEGA  * PAS  / (1/TAS  - I * OM£GA»**2 

SOURCE 

26 

c 

SOURCE 

27 

c 

WHERE  I a (-H—0.5  . 

SOURCE 

28 

c 

• 

SOURCE 

29 

c language 

- FORTRAN  IV  (Tea,  REFERENCE  MANUAL  028-6515-4) 

SOURCE 

30 

c 

SOURCE 

31 

c 

AUTHORS 

- A. S. PIERCE  ANQ  J. POSEY,  K.I.T.,  AUGUST, 1968 

SOURCE 

32 

c 

SOURCE 

33 

c 

SOURCE 

34 

c 

—USAGE— 

SOURCE 

35 

c 

SOURCE 

36 

c 

SUBROUTINE  PHASE  IS  CALLEO 

SOURCE 

37 

c 

’ « 

SOURCE 

38 

c 

FORTRAN  USAGE 

SOURCE 

39 

c 

SOURCE 

40 

c 

CALL  SOURCE (OMEGA, FTMAG, FTPHSE.OMAG.GOHSE) 

SOURCE 

41 

c 

, 

SOURCE 

42 

c 

INFUTS 

SOURCE 

43 

c 

SOURCE 

44 

c 

OMEGA 

ANGULAR  FREOUENCT  (RAOIANS/SEC) 

SOURCE 

45 

c 

R*4 

SOURCE 

46 

c 

SOURCE 

47 

c 

OUTPUTS 

SOURCE 

48 

c 

’ 

SOURCE 

49 

c 

FTMAG 

MAGNITUDE  OF  FT (OMEGA)  OEFINEO  ABOVE  IN  SUBROUTINE  A9STR 

SOURCE 

50 

c 

R*4 

( (OTNES/CH  — 2)  / (PAC/SEC)  ) 

SOURCE 

51 

c 

SOURCE 

52 

c 

PTPHSE 

PHASE  OF  FT (OMEGA)  OEFINEO  ABOVE  IN  SUBROUTINE  ABSTRACT 

SOURCE 

53 

c 

R*«* 

(RAOIANS)  

SOURCE 

54 

c 

SOURCE 

55 

c 

OMAG 

DERIVATIVE  CF  FTMAG  WITH  RESPECT  TO  OMEGA  ( (OYNES/CM—2 

SOURCE 

56 

c 

**4 

/ (RAO/SEC)**2  ) 

SOURCE 

57 

c 

SOURCE 

58 

c 

OPHSE 

DERIVATIVE  OF  FTPHSE  WITH  RESPECT  TO  OMEGA  (RAO  / (RAO/ 

SOURCE 

59 

c 

R*<* 

SEC)  ) ... 

SOU°CE 

60 

c 

SOURCE 

61 

c 

SOURCE 

62 

c 

— — program  follows  below 

SOURCE 

63 

c 

SOURCE 

64 

I 


----- -?r 


ao  on 
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C 


c 


c 


SOURCE 

65 

HE  ASSUME  INVERSE  R OEFEKOENCE 

SOURCE 

66 

PAS*(34.45E*3/1.0>*  (1.611 

SOURCE 

67 

PAS  IS  IN  GYFES/CM**’ 

SOURCE 

66 

THIS  IS  THE  PEAK  OVERPRESSURE  AT  1 KM 

SOURCE 

69 

TAS«0. 33 

SOURCE 

70 

TAS  IS  THE  LENGTH  OF  THE  POSITIVE  PHASE 

SOURCE 

71 

OHO=1.0/TAS 

SOURCE 

72 

0ENOHs0HEGA**24OHO**2 

SOURCE 

73 

FTHAGsFAS*OMEGA/OENOH 

SOURCE 

74 

OMAGsPAS/OENO*1-2  • G*°AS*C*'EGA**2/CENOH**2 

SOURCE 

75 

CALL  PHASE ( OHO* Ov£GA « X . FHI ) • 

SOURCE 

76 

PHI  IS  THE  APCTAK  OF  OHEGA/OMO 

SOURCE 

77 

FTPHSE=-3. 1415927/2. G«-2.0*RHI 

SOURCE 

78 

0PHSE*2 . 0*OHO/OE  ROM 

SOURCE 

79 

THE  DERIVATIVE  OF  THE  ARCTAN  IS  i./tl.*Y**2» 

SOURCE 

80 

RETURN 

SOURCE 

81 

ENO 

SOURCE 
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c 

SUBROUTINE  SMSFCTIN.M.NRCW,  INMOOE.  TStTSr 

SUSPCT 

1 . 

SUSPCT  (SUBROUTINE)  7/19/68  LAST  CARO  IN  DECK  IS 

SUSPCT 

2 

c 

SUSPCT 

3 

c 

* 

SUSPCT 

6 

c 

ABSTRACT — — 

SUSPCT 

5 

c 

SUSPCT 

6 

c 

TITLE  - SUSPCT 

SUSPCT 

r 

c 

evaluation  cf  suspicion  index  of  element  (n.m>  OF  MATRIX  INMOO 

SUSPCT 

8 

c 

SUSPCT 

9 

c 

SUSPCT  EVALUATES  THE  SUSPICION  INDEX » ISUS.  OF  THE  ELEMS 

SUSPCT 

10 

c 

IN  ROW  N,  COLUMN  M OF  TH£  MATRIX  INMOOE  C (N.M>  **UST  BE 

SUSPCT 

11 

c 

AN  INTERIOR  ELEMENT).  THE  NEIGHBORS  OF  (N.M)  ARE  DEFINE 

SUSPCT 

12 

c 

■TO  OE  THE  EIGHT  ELEMENTS  WHICH  FORM  THE  THREE  8Y  THREE 

SUSPCT 

13 

c 

ELEHENT  SHUARS  hWICH  HAS  (N.H)  AT  ITS  CENTER . THEY  ARE 

SUSPCT 

16 

c 

NUMBEREO  FROM  ONE  TO  NINE  BEGINNING  IN  THE  UP®£B  LEFT  AN 

SUSPCT 

15 

c 

PROCEEDING  CLOCKWISE  (N'C.  1 AND  NO.  0 APE  SAME  ELEMENT) . 

SUSFCT 

16 

c 

EACH  ELEMENT  CF  MATRIX  INMOOE  MUST  HAVE  ONE  OF  THREE 

SUSFCT 

IT 

c 

VALUES.  -1.  1.  OR  5.  (N.M)  IS  NOT  SUSPICIOUS  ANC  ISUS  > 

SUSPCT 

18 

c 

0 IF  ANY  ONE  CF  THE  FOLLOWING  CONDITIONS  HOLDS.. 

SUSFCT 

19 

c 

SUSPCT 

20 

c 

1.  ELEMENT  (N.M)  > 5 

SUSFCT 

21 

c 

2.  ANY  CF  ITS  NEIGHBORS  > 5 

SUSPCT 

22 

c 

3.  NOWHERE  IN  THE  3X3  ARRAY  OF  (N.M)  ANO  ITS  NEIGH 

SUSPCT 

23 

c 

. 

90RS  CCES  THERE  APPEAR  TO  BE  A DISPERSION  CURVE 

SUSFCT 

26 

c 

WITH  POSITIVE  SLOPE 

SUSPCT 

25 

c 

SUSPCT 

26 

c 

OTHERWISE  ISUS  IS  SET  EDtJAL  TO  THE  NUMBER  OF  TH£  OUAORAN 

SUSPCT 

27 

c 

IN  WHICH  THE  POSITIVE  SLOPE  APPEARS.  THE  CLADRANTS  ARE 

SUSPCT 

28 

c 

NUHeCRCC  BEGINNING- IN  THE  UPPER  LEFT  ANC  PRCCEOING  CLOCK 

SUSFCT 

29 

c 

WISE. 

SUSPCT 

30 

c 

. 

SUSPCT 

31 

c 

LANGUAGE 

FORTRAN  IV  (360.  REFERENCE  HANUAL  C28-651S-6) 

SUSPCT 

32 

c 

SUSPCT 

33 

c 

AUTHORS 

A. 0. PIERCE  AND  J.°OSEY,  N.I.T.,  JUNE. 196* 

SUSFCT 

36 

c 

SUSPCT 

35 

c 

USAGE- 

SUSPCT 

36 

c 

SUSFCT 

3T 

c 

NO  FORTRAN  SUBROUTINES  ARE  CALLED 

SUSPCT 

38 

c 

SUSPCT 

39 

c 

FORTRAN  USAG 

e 

SUSPCT 

60 

c 

CALL  SUSFCT(N,M,NROW, INMOOE. ISUS) 

SUSFCT 

61 

c 

* 

SUSPCT 

62 

c 

INPUTS 

* i 

suspcr 

63 

c 

SUSPCT 

66 

c 

N 

ROW  HUHGER  OF  SLEMFNT  UNOER  CONSIDERATION  (KAY  NOT  eE 

SUSPCT 

65 

c 

1*6 

FIRST  OR  LAST  ROW) 

SUSPCT 

66 

c 

SUSPCT 

67 

c 

M 

COLUMN  NUMBER  CF  ELEHENT  UNDER  CONSIOERAION  (MAY  NOT  BE 

SUSFCT 

68 

c 

1*6 

FIRST  OR  LAST  COLUMN) 

SUSPCT 

69 

c 

SUSFCT 

50 

c 

NROM 

TOTAL  NUMBER  CF  ROWS  IN  INMOOE.  . 

SUSFCT 

51 

c 

1*6 

SUSPCT 

52 

c 

* 

SUSPCT 

53 

c 

INMOOE 

MATRIX  UNOER  CONSICSRATION  STORED  IN  VECTOR  FORK.  CCCUMN 

SUSFCT 

56 

c 

1*6(0) 

AFTER  COLUMN.  EACH  ELEMENT  MUST  BE  -1.  1.  OR  5. 

SUSFCT 

55 

c 

SUSFCT 

56 

c 

OUTPUTS 

. - ......  - . . . 

SUSFCT 

57 

c 

SUSPCT 

58 

c 

ISUS 

SUSPICION  INOEX  OF  ELEMENT  (N.M).  SEE  ABSTRACT  ABOVE  FO 

SUSPCT 

59 

c 

1*6 

DEFINITION. 

SUSPCT 

60 

c 

SUSFCT 

61 

c 

SUSFCT 

62 

c 

—-"EXAMPLES . . 

SUSPCT 

63 

c 

SUSPCT 

66 

e 

CALLING  PROGRAM  ...  ... 

SUSPCT 

65 

e 

SUS»CT 

66 

c 

DIMENSION  INMOOE (9) 

SUSPC’/ 

67 

c 

INMOOE  > 

-1.  -1.  1.  1.  -1.  1.  1.  1.  -1 

SUSPCT 

68 
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C CALL  SUSPCT (2*2  * 3* INMCO£«ISUSI 

C WRITE  (6*2001  TSUS 

C 200  FORMAT  (lOH  £XAM=LE  1.6X,  6HISUS  >.I2» 

C INMOOE  > -1*  -l.'l.  1*  -1*  “i»  1*  1*  *• 

C CALL  SUSPCT(2*2«3»INMOCE*ISUS) 

C WRITE  (6*300)  ISUS 

C 300  FORMAT  (10H  EXAMPLE  2. EX,  6WISUS  >*121 
C END 

C 

c TABLES  or  INMOOE 

c 

c EXAMPLE  1 EXAMPLE  2 

c 

C 

c 

c 

c 

c PRINTOUT 
C 

c EXAMPLE  1 ISUS  * 3 

C EXAMPLE  2 ISUS  * 0 

C 
C 

c ——PROGRAM  FOLLOWS  BELOW— 

c 

c 

c 

C VARIABLE  DIMENSIONING  OF  INMOOE 
DIMENSION  IPP(9) .INMOCE(l) 

C 

c ELEMENT  (N,M)  OF  INHOOE  IS  ICEN 
J16*(M-1)*MR0W»N 
ICEN* INMOOE (J1 6) 

* ISUS*  0 

c 

C'lF  ICEN  IS  S*  IT  IS  NOT  SUSPICIOUS  ANO  ISUS  * 0. 

IF ( ICEN  *EQ.  5)  RETURN  

C 1PP(N)  IS  N£ IGH30R  NO.  N (SEE  A8STRACT  ASOVE  FOR  NUMBERING  SCHEME) 
J17*(M-2)*NROW*(N-l) 

IP»(1) *IKH03E(J17) 

JU*(M-l)»NROW*  (N-l) 

XPP (21  * INHOOE  ( J1 8 > 

J19*(M-Q>»NR0W*<N-i) 

IPP(3) * INMOOE (J1 9) 

J2  0 * (M-0 ) *‘IROW+  (N-0  ) 

IPP(4) sINMOOE (J20) 

J2t* (M-0 ) *NROW ♦ < N*t ) 

IPP(5) * INMOOE (J21) 

J22*(H-l)*NROW*<NU> 

IP°(6) sINMOOE (J 22) 

J23*(M-2)*NR0W* <Kn> 

IP® (7) * INMOOE ( J2 3) 

J24*(N-2)*NROW-»{N*Q> 

IPP(a»  sINMOOE  (J24) 

IPP(9)=  IPRd) 

NX  * 0 
00  10  1*1.9 

IF(IPP(I>  *EQ*  S)  NX*NX*1 
tO  CONTINUE 

C NX  IS  THE  NUMBER  OF  NEIGHBORS  WHICH  EQUAL  *5 

c 

C IF  MORE  THAN  ONE  NEIGHBOR  IS  EQUAL  TO  *5*  THEN  ISUS*3 
IF  (NX  *CT.  1)  RETURN 


SU$PCT  69 

SOSPCT  70 

SUSPCT  71 

SUSFCT  72 

SUSPCT  73 

SUSFCT  74 

SUSPCT  75 

SUSFCT.  76 

SUSPCT  77 

SUSPCT  78 

SUSPCT  79 

SUSPCT  80 

SUSPCT  81 

SUSPCT  82 

SUSPCT  83 

SUSFCT  84 

SUSPCT  65 

SUSPCT  86 

SUSFCT  87 

SUSPCT  68 

SUSPCT  69 

SUSPCT  90 

SUSPCT  91 

SUSPCT  92 

SUSPCT  93  ' 

SUSPCT  94 

SUSP IT  95 

SUSPCT  96 

SUSPCT  97 

SUSPCT  98 

SUSPCT  99 

SUSFCT  100 

SUSPCT  101 

SUSPCT  102 

SUSPCT  103 

SUSPCT  104 

SUSPCT  1C5 

SUSFCT  106 

SUSPCT  107 

SUSPCT  108 

SUSPCT  109 

SUSPCT  110 

SUSPCT  111 

SUSPCT  112 

SUSPCT  113 

SUSFCT  114 

SUSPCT  115 

SUSPCT  116 

SUSFCT  117 

SOSPCT  118 

SUSPCT  119 

SUSPCT  120 

SUSPCT  121 

SUSPCT  122 

SUSPCT  123 

SUSPCT  124 

SUSPCT  125 

SUSPCT  126 

SUSPCT  127 

SUSPCT  128 

SUS°CT  129 

SUSPCT  130 

SUSPCT  131 

SUSPCT  132 
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e 

SUSPCT 

133 

e 

IF  NEIGHBOR  3 I?,  THE  ONLY  CUE  EQUAL  TO  *5  ANO  EITHER  NEIGHBOR  Z OR 

SUSFCT 

m 

c 

NEIGHBOR  4 OOES  NOT  AGREE  WITH  ICEN,  THEN  ISUS=2 

SUS°CT 

135 

ISUN  » IABSI  ICEW  ♦ IF3 (2)  ♦ I ®F  1 4) 1 

SUSPCT 

136 

IF  <Iop<31.E0.5  « AMO.  ISUM.NE.3l  ISUS=Z 

SUSPCT 

137 

IF  <NX.GT.0l  RETURN  . 

SUSPCT 

130 

30  00  50  1*1, 0 

SUSPCT 

139 

50  IPB<I|s<IA«3S<IPF(I)  ♦ICEM1/2 

SUSPCT 

140 

e 

IP?{ II  IS  1 IF  NEIGHBOR  I AGREES  WITH  ICON.  IT  IS  0 IF 

THEY  OISAGPEE 

SUSPCT 

141 

c 

CTO  REACH  THIS  POINT,  NEITHER  ICEN  NOR  ANY  OF  ITS  NEIGHBORS  COULC  BE 

SUSPCT 

142 

c 

SUSPCT 

143 

ISUS  * 1 

SUSPCT 

144 

IF ( IPP<1)  .EQ.  0 .ANO.  IPP(Z)  .EQ.  1 .ANO*  IPP<8» 

.EQ.  1) 

SUSPCT 

145 

1 RETURN 

SUSFCT 

146 

IF<  IP°t 5)  .EQ.  0 .ANO.  IPP<2>  .EQ.  0)  RETURN  ■ 

SUSPCT 

147 

ISUS  * 2 

SUSPCT 

148 

IF < IPP<2»  .EO.  0 .ANO.  IPPf»)  .EQ.  It  RETURN 

SUSPCT 

149 

IFC  IPP<3»  .EQ.  1 .ANQ.  IP3<4)  .EQ.  01  RETURN 

SUSPCT 

150 

ISUS  * 3 

SUSFCT 

151 

IF ( IP«(5I  .EQ.  0 .AND.  IP»<M  .EO.  1 .ANO.  IWPf6> 

.EO.  It 

SUSPCT 

152 

1 RETURN 

SUSFCT 

153 

IF t Ioe(4l  .EO.  0 , ANO . IPe<6)  .FQ.  0)  RETURN 

SUSPCT 

154 

ISUS  * 4 

SUSPCT 

155 

IFf  IF°<6)  .EQ.  0 .ANO.  IPPI7I  .SO.  1)  RETURN 

SUSPCT 

156 

IF(  IP"<7»  .EO.  t .ANO.  IPP<5I  .EQ.  3)  RETURN 

SUSPCT 

157 

ISUS  * 0 

SUSPCT 

158 

RETURN 

SUSPCT 

159 

ENO 

SUSPCT 

160 

ooooooooooooooooooooooo o o o.o  ooooooooooooooooonoooooooooooooo 
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SUBROUTINE  TAOLE <0M1, CM2, VI. V2.NCM, NVP. THent.ON.V.INnCOE.NOPn 
TABLE  (SUBROUTINE)  7/19/68  LAST  CAR.3  IN  OECR  IS 

-ABSTRACT 

TITLE  - TABLE 

GENERATION  OP  SUSPICIONLFSS  TABLE  OF  NORMAL  NOTE  CISPEPSION 
FUNCTION  SIGHT 

TABLE  CALLS  SUBROUTINE  MPOUT  TO  CONSTRUCT  THE  MATRIX  OF 
NORMAL  MODE  0I3PSRSI0N  FUNCTION  SIGNS  INHOCE  (STORBC  IN 
. . . VECTOR  FORM  COLUMN  AFTER  COLUMN)  FOR  REGION  IN  FPEQUENCY 

PHASE  VELOCITY  PLANE  (CM.  LE.  OMEGA  .LS.0M2.  ANO.  VI  .LS  .VP.L 
«V2).  SUBROUTINE  SUSPCT  IS  CALLED  TO  EVALUATE  THE  SUSPI 
CION  INCEX  ,ISUS,  OF  EACH  INTERIOR  ELEMENT  IN  THE  MATRIX 

, SCANNING  FROM  LEFT  TO  RIGHT,  TOP  TO  BOTTOM.  IF  ISUS  .NE. 

0 « INHCOE  IS  ALTERED  AS  FOLLOWS. 

ISUS*1  ROW  AOCEO  AEOVE  SUSPICIOUS  ELEMENT  ANO  COLUH 
ACQEO  TO  ITS  LEFT 

«2  COLUMN  AOOEO  TO  RIGHT  OF  SUSPICIOUS  ELEMENT 

AND  ROW  AOCEO  ABOVE  IT 

*3  ROW  AOCEO  eELOW  SUSPICIOUS  ELEMENT  ANO  COLUN 

ACCSO  TO  ITS  RIGHT 

«4  COLUMN  AOCEC  TO  LEFT  OF  SUSPICIOUS  ELEMENT 

AKC  ROW  ACCEO  BELOW  IT 

HOWEVER,  NEITHER  THE  NUMBER  OF  WOWS  NVP  NOR  THE  NUMBER  0 
COLUMNS  NOM  WILL  BE  INCREASED  BEYOND  100.  IF  ISUS  CALLS 

FOR  AN  AQOITICNAL  ROW  WHEN  NV?  = 100  , THE  MESSAGE 

(NVP  a 100  N » XX  H = XX)  WILL  DE  PRINTED. 

N Is  ROW  MO*  CF  SUSPICIOUS  ELEMENT.  M IS  COLUMN  NO.  IF 
ISUS  CALLS  FCR  AOCITION  OF  A COLUMN  WHEN  NOM  s 100,  THE 

MESSAGE  (NOM  * 100  N = XX  M - XX)  IS  PRINT 

WHEN  INMQOE  has  BEEN  EXPANDED  SCANNING  IS  RESUMEO  AT  THE 
ELEMENT  IN  NEW  MATRIX  WITH  SAME  ROW  AND  COLUMN  NOS.  AS 
THOSE  OF  SUSPICIOUS  ELEMENT  IN  010  MATRIX.  IF  NO“T  IS 

. POSITIVE  INMCCc  WILL  RE  PRINTEO  AS  IT  IS  RETURNEO  FROM 

MPOUT  ANO  IN  ITS  FINAL  FORM. 

LANGUAGE  - FORTRAN  IV  <360,  REFERENCE  MANUAL  - C28-6515-4) 

AUTHOR  - J.W, POSEY,  M.I.T.,  JUNE, I960 

— USAGE---- 

SUBROUTINES  MPOUT ,SUSFCT,LNGTHN, WIDEN. NMDFN  ARE  CALLEO  IN  TAELE. 
FORTRAN  USAGE 

CALL  TAHLE(OM1,OM2,V1,V2,NCM,NVP.THETK,OK,V,INMOOE,NOPT) 


INPUTS 


0M1  MINIMUM  VALUE  OF  FREQUENCY  TO  BE  CONSIDERED. 

R*4 

0M2  MAXIMUM  VALUE  CF  FREQUENT  TO  3E  CONSIDERED 

R*4 

VI  MINIMUM  VALUE  CF  RHASE  VELOCITY  TO  8E  CONSIDERED 

R*4 

V2  MAXIMUM  VALUE  CF  PHASE  VELOCITY  TO  EE  CONSICEREO 


MAXIMUM  VALUE  CF  FREQUENT  TO  3E  CONSIDERED 


TABLE 

1 

TABLE 

2 

TABLE 

3 

TABLE 

4 

TABLE 

5 

TABLE 

6 

TABLE 

7 

TABLE 

8 

TABLE 

9 

TABLE 

10 

TABLE 

11 

TABLE 

12 

table 

13 

table 

14 

TAELE 

IS 

TAELE 

16 

TABLE 

17 

TABLE 

18 

TABLE 

19 

TAOLE 

20 

TABLE 

21 

TABLE 

22 

TAeLS 

23 

TAOLE 

24 

TAELE 

25 

TABLE 

26 

TABLE 

27 

TABLE 

28 

TABLE 

29 

TABLE 

30 

TABLE 

31 

TABLE 

32 

TAOLE 

33 

table 

34 

TABLE 

35 

TABLE 

36 

TABLE 

37 

TABLE 

38 

TABLE 

39 

TABLE 

40 

TABLE 

41 

TAetE 

42 

TABLE 

43 

TABLE 

44 

TABLE 

45 

TABLE 

46 

TAELE 

47 

TABLE 

48 

TABLE 

49 

TABLE 

50 

TAetE 

51 

TABLE 

52 

TA5LE 

53 

TABLE 

54 

TABLE 

55 

TABLE 

56 

TABLE 

57 

TAELE 

58 

TAELE 

59 

TABLE 

60 

on  ooonooooo  no ooooooooooonoooooooooooooooooooooooonooooooooooo 


R*4 

NON 

1*4 

NVP 

1*4 

THETK 

R*4 

NOPT 

1*4 


OUTPUTS 


NON 

1*4 

NVP 

1*4 

ON 

R*4(0> 


R*4(0) 

INHOOE 

I*M(0) 


INITIAL  NO.  OF  'RECUENCIES  TO  BE  CONSIDERED 
INITIAL  NO.  OF  PHASE  VELOCITIES  TO  BE  CONSIOEREO 
PHASE  VELOCITY  DIRECTION  JRAOIANS) 

PRINT  OUT  OPTICS.  IF  NCPT  a -1,  NO  PRINT.  IF  HOPT  r 1. 
INHOOE  IS  FF.INTEO  IN  ITS  INITIAL  FORM  (GENERATES  3Y  NPOU 
ANO  IN  ITS  FINAL  FORN. 

TOTAL  NC.  OF  FREQUENCIES  CONSIOEREO 

TOTAL  NC.  OF  PHASE  VELOCITIES  CONSrOEREC 

VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  ANGULAR  FRECUENC 
CORRESPONDING  (C  THE  COLUMNS  OF  THE  INHOOE  MATRIX 

VECTOR  WHOSE  ELEHENTS  ARE  THE  VALUES  OF  PHASE  VELOCITY 
CORRESPONDING  TO  THE  ROWS  OF'  TH£  INMOOc  MATRIX 

EACH  ELEMENT  CF  THIS  MATRIX  CORRESPONDS  TO  A POINT  IN  TH 
FREQUENCY  <CH|  - PHASE  VELOCITY  tV)  PLANE.  IF  THE  NORMA 
NODE  CISPERSICN  FUNCTION  (F=P>  IS  “OSITIVE  AT  THAT  POINT 
THE  ELEMENT  IS  ♦ !.  IF  FP»  IS  NEGATIVE.  THE  ELEHEM  IS  -1 
IF  FPP  COES  NOT  EXIST,  THE  ELEMENT  IS  S.  INMOCE  HAS  NVP 
, ROMS  AND  NON  COLUMNS.  MATRIX  IS  STORED  AS  A VECTOR, 
COLUMN  AFTER  COLUMN. 

. »«““EXAHPL£«— 

LET  INHOOE  * -1.5, 5,5, 1,-1, -1,-1, 1,1, -1,-1, 1,1, 1,1 
WITH  NON  s MVP  a It 

ANO  ON  = 1.0, 1.5,2. 0,2, 5 THETK  * 3.14159 

V * 1. 0,2. 0,3.0. A. 0 

(VALUES  NOT  CORRECT,  FOR  ILLUSTRATION  ONLY)  

THEN  THE  TABLE  MILL  Be  PRINTED  AS  FOLLOWS. 

VPHASE  NORMAL  MOOE  OISFERSION  FUNCTION  SIGN 

1.00000  -♦♦♦ 

2.00000  x-»* 

3,00030  X— ♦ 

4.00000  X— ♦ 

ONEGA  1234 

PHASE  VELOCITY  CIRECTION  IS 


ONEGA  a 
. . 0.10000E  01 


0.15000E  oi 


90.0000EGREES 
0.20000E  01  _ 0.25000E  01 


— — PROGRAM  FOLLOWS  BELOW— 


DIMENSION  OH(10C),V(100)  .INHOOE  (10000)  .OORNdOOj  .KORNdOO) 
COMMON  INAX,CI(130).VXIdOO),VYIdOO),HI(ieO) 

NPOUT  IS  CALLED  TO  PRODUCE  INMCDE  NATP.IX  ANO  ON  ANO  V VECTORS. 
CALL  N°0'JT{0Ml,0,'2,Vl,V2,NCN,NVo,  INHOOE, OH,  V, THETK) 


TABLE 

61 

TABLE 

62 

TABLE 

63 

TABLE 

64 

TABLE 

65 

TARLE 

66 

TABLE 

62 

TARLE 

68 

TABLE 

69 

TABLE 

TO 

TABLE 

71 

TABLE 

72 

TABLE 

73 

TAOLE 

74 

TABLE 

75 

TAPLE 

76 

TAOLE 

77 

TAP.LE 

78 

TABLE 

79 

TABLE 

PC 

TABLE 

81 

TAPLE 

82 

TABLE 

83 

TABLE 

84 

TABLE 

85 

TABLE 

86 

TABLE 

87 

TABLE 

88 

TAOLE 

89 

TABLE 

90 

TABLE 

91 

TAeLE 

92 

TAeLS 

93 

TAELE 

94 

TABLE 

95 

TABLE 

96 

TABLE 

97 

TABLE 

98 

TABLE 

99 

TABLE 

100 

TAeLE 

101 

TABLE 

102 

TABLE 

103 

TAeLE 

104 

TAeLE 

105 

TABLE 

106 

TABLE 

1C7 

TAELE 

108 

TABLE 

109 

TABLE 

110 

TABLE 

111 

TABLE 

112 

TAeiE 

113 

TABLE 

114 

TABLE 

115 

TABLE 

116 

TAeLE 

117 

TAPLE 

118 

TABLE 

119 

TABLE 

120 

TABLE 

121 

TAOLE 

122 

TAOLE 

123 

TAeLE 

124 

oo  on  on  on  on  no.  . no  on  no  no  on  ooono  on  no 


IfSBUl 
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XFLAG  * 1 INDICATES  FIRST  TIFE  THROUGH  WRITE  PROCEOUPE 
XFLAG  * 1 

XNHOOE  IS  FRINTEO  IF  NOPT  IS  POSITIVE 
IF  (NOPf.GE.OJ  GC  TO  123 
S XFLAG  * 0 
NOPERsO 

NO PER  IS  THE  N1IM8ER  OF  EXPANSION  OPE3ATIONS  PERFORMED  IN  THE  PRESENT 

SCAN  OF  THE  MATRIX.  THUS.  N0°ER  IS  THE  NUMBER  OF  SUSPICIOUS  POINTS 

FOUNO  IN  THE  PRESENT  SCAN. 

BEGIN  SCANNING  OF  INTERIOR  ELEMENTS  CF  INHOOE  'IN  UPPER  LEFT  CORNER 
N * 2 
H « 2 

10  CALL  SUSPCTtN.H.NVP. INHOOE, ISUSI 

POINT  (N,N»  IS  SUSPICIOUS  IF  I3US.NE.0 
IF ( ISUS. K£. 0 > GO  TO  60 

CHECK  FOR  SKC  OF  ROW 
20  IF  IH.LT. (NOM-1) I GO  TO  30 

CHECK  FOR  LAST  ROW 

IF  <N.LT.(NVP-1)>  GO  TO  60 
GO  TO  121 

HOVE  ONE  COLUMN  TO  RIGHT 
30  H • NM 
GO  TO  10 

AOVAKCE  ONE  POW  ANO  START  AT  COLUMN  THC 
60.  H * NH 
H * 2 
CO  TO  10 


CHECK  FOR  MAXIMUM  VALUE  CF  NVP 

60  IF(NVP.LT.lOO)  GO  TO  62 

61  FORMAT  (2«.H  NVP  a 100 
WRITE  (6,611  N.M 

GO  TO  20 

62  IFtNOM  ,LT.  100)  GO  TO  70 

63  FORMAT (2AHNOM  = 100 
66  WRITE  (6. 63t  N.M 

GO  TO  20 

70  JFUSUS  ,NE.  1)  CO  TO  75 


N S.I3.8H 


N*. 13,  AH 


M *,131 


M*,I3> 


AOO  ROW  ABOVE  SUSPICIOUS  FCINT 
Nl*N-l 

AOO  A COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 
Mi«M-l 
GO  TO  100 

7$  IF (ISUS  .NE.  21  GO  TO  80 

AOO  A COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 
M1*M 

AOO  ROW  ABOVE  SUSPICIOUS  POINT 
Hl*N-l 
GO  TO  100 

80  XF( ISUS  .NE.  3)  GO  TO  85 

AOO  A COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 


159 


\ 

i 


H1«M 

TABLE 

189 

c 

TA8LE 

190 

c 

AOS  ROW  BELOW  SUSPICIOUS  POINT 

TABLE 

191  -j 

Nl*N 

TABLE 

192 

CO  TO  100 

TABLE 

193 

e 

TABLE 

194 

c 

AOO  ROW  OELOW  SUSPICIOUS  POINT 

TABLE 

195 

as  Nl*N 

TABLE 

196 

c 

TABLE 

197 

c 

AOO  A COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 

TABLE 

198 

M1*H-1  . . . 

TABLE 

199  i 

100  CONTINUE 

TABLE 

200 

CALL  LKGTHN<OHtV,INMOC£,NOM,NVP»HVPP»Nl,L;THETKI 

TAPLE 

201 

CALL  WIOEN(OM,V. INMOOE. NOM«NOMP,NVPP,Kt»l.THETIO 

TABLE 

202 

NVP»NV®P 

TABLE 

203 

NONsNOHP  •-  ■ 

TABLE 

204 

NOPER*NOPER*l 

TABLE 

205 

CO  TO  10 

TAeLS 

206 

121  CONTINUE 

TABLE 

207 

IF(NOP£R  .GT.  0 .AND.  NVP  .LT.  100  .ANO.  NON  .LT..  1001 

GO  TO  5 

TABLE 

20  A 

c 

. 

TAOLE 

209  -J 

c 

OO  NOT  PRINT  INMOOE  IF  NOPT  IS  NEG  A t i YE 

TABLE 

210  i 

IFTNOPT  .LT.  Cl  RETURN 

TABLE 

211 

c 

TAOLE 

212  : 

c 

LABELING 

TAOLE 

213. 

122  FORMAT  (6H1V°HS£  «6X .36HNORBAL  MODE  OISPERSION  FUNCTION 

SIGN/1 

TAeLE 

214 

123  WRITE  (6,1221 

TAPLE 

215 

00  133  1*1. NVP 

TABLE 

216 

00  12S  J=l,NOM 

TAOLE 

217 

je«*(j-ii*NV»fi 

TABLE 

218 

J69*INM00t( J811  -1 

TABLE 

219 

IF  (J891  126,125,124 

TABLE 

220 

• 

124  CONTINUE 

TABLE 

221 

c 

TAOLE 

222 

c 

IF  INMOOE  * 5,  OORN  * 1HX . 

TABLE 

223 

OATA  91/1HX / 

TAeLE 

224  i 

OORN(J)  * 01 

TABLE 

225  ! 

60  TO  127 

TABLE 

226 

123  CONTINUE . 

TAeLE 

227 

c 

TAeLE 

228 

c 

IF  INMOOE  = 1,  OORN  * 1H7 

TABLE 

229 

OATA  Q2/1H*/ 

TAOLE 

230 

CORN (J) ' * 02 

TAeLE 

231 

CO  TO  127 

TABLE 

232  ; 

126  CONTINUE 

TAeLE 

233 

c 

- 

TABLE 

234  ; 

c 

IF  INMOOE  * -1,  OORN  * 1H- 

TABLE 

235  ; 

OATA  03/1H-/ 

TABLE 

236 

OORN ( J)  = 03 

TABLE 

237 

127  CONTINUE 

TAeLE 

238 

128  CONTINUE  

TAeLE 

239  i 

c 

TABLE 

240 

c 

PRINT  ROW  I OF  TABLE  .... 

TAeLE 

241 

WRITE  (6,130}V(I1,(DORMJI,  J*1,N0H) 

TAeLE 

242 

138  FORMAT (1H  ,F?.5,IX,1C0A1)  „ 

TAeLE 

243 

133  CONTINUE 

TABLE 

244  ! 

J10  * 10  . 

TAeLE 

245 

00  150  J=i,NOM 

TAeLE 

246 

c 



. TAPLE 

247  ' 

c 

NUMBER  COLUMNS 

TABLE 

248 

ISO  KORN(J)  * MOO  ( J , J10  1 

TABLE 

249 

WRITE  (6,2131  (KCRNIJl,  J=1,N0M» 

TABLE 

250 

213  FORMAT  (6HOOMfOA,6X, 100111 

TABLE 

251 

c 

TABLE 

252 

1 


no  no 


C 


CONVERT  THETK  FROM  PAOIANS  TC  CEGREES 

. TAOLE 

253 

X « THETK*180/3. 14159 

TABLE 

254 

WRITE  (6,413)  X 

TAOLE 

255 

413  FORMAT  < 1H  • 11X  « 27HPHASE  VELOCITY 

OIRECTION  IS.F9.3, 

TABLE 

256 

1 6H3E0PEES  ) 

TAOLE 

257 

WRITE  (6,513) 

TABLE 

258 

513  FORMAT  ( 8HQOMEGA  =1  * 

TACLE 

259 

TABLE 

260 

LIST  VALUES  OF  OMEGA  WHICH  CORRESPONC 

TO  COLUMNS  OF  TABLE 

TABLE 

261 

WRITE  (6,613)  (ONtI) ,1*1, MOM) 

TABLE 

262 

613  FORMAT  ( 1H  ,5E14.5) 

TACLE 

263 

TAdE 

264 

IF  SUSPICION  ELIMINATION  HAS  NOT  SEEN 

PERFORMEO'*  BEGIN  IT  AT 

THIS  TIM  TABLE 

265 

IFUFLAG.E1.1)  GO  TO  5 

TABLE 

266 

RETURN 

TACLE 

267 

ENO 

TABLE 

268 

nnnnnnnnnnonnnonnnn  non  o oooooooooooonooonooooooo  n o o.o  o o nnnnnnonn 
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SU9R0UTINE  TABFRT (YIELC.HOFNO.KST.KFIN.OKMOO.VRNOO. 

1AMPLT0.PHASQ) 

TAePRT  (SUBROUTINE)  7/31/69  LAST  CAPO  IN  OECK  IS 

——ABSTRACT 

TITLE  - TA8PPT 

PROGRAM  TO  PRINT  CUT  LISTS  OF  FRECUSNCT.  PHASE  VELOCITY, 
AMPLITUDE,  ANC  PHASE  FOR  EACH  GUIOEO  HQOE  EXCITED  BY  * NUCLEAR 
EXPLOSION  OF  GIVEN  YIELD.  TH”  SIMULTANEOUS  LISTING  OF  FREQUEN 
ANO  PHASE  VELOCITY  REPRESENTS  THE  OISFERSION  CURVE  FOR  ThE 
GUIOEO  NOOE.  THE  CL  AMITIES  AHFLTO  ANO  PHASE  OEFENO  ON  SC'J.RCE 
ANO  OBSERVER  HCIGHTS  AS  HELL  AS  THE  MODEL  ATMOSPHERE.  HQHSVCR 
THE  LATTER  INFORMATION  IS  NOT  LISTED  BY  T A0°RT  ANC  IS  PRESUMED 
TO  SE  LISTEO  BY  ANOTHER  SUBROUTINE.  THE  SUBROUTINE  TABCRT 
SHOULD  NOT.  BE  CALLED  UNTIL  ALL  THE  QUANTITIES  TO  BE  LISTEO 
NAVE  BEEN  COMPUTEC  ANC  STORED  IN  THE  MACHINE.  NORMALLY, 

ATMOS,  TA8LE,  ALLMCD,  RAMPDt,  ANO  PPAMP  HOULO  BE  CALLEO  BEFORE 
TABPRTo 

LANGUAGE  « FORTRAN  IV  <3o0,  REFERENCE  MANUAL  C21-6515-4) 

AUTHORS  - A.O. PIERCE  ANC  J. POSEY,  M.I.T.,  JULY , 1*368 

—CALLING  SEQUENCE 

OIMENSION  XST(l) ,KFIN<1) .OMMCO (1 ) , VRMOO (1) ,AHDLTO(l) .PMASOtl) 

THE  SUBROUTINE  USES  VARIABLE  DIMENSIONING.  THE  TRUE  DIMENSIONS  MUST 
BE  GIVEN  IN  THE  PROGRAM  WHICH  DEFINES  THESE  QUANTITIES.  SEE  THE 
OIHENSION  STATEMENTS  IN  THE  MAIN  PROGRAM. 

CALL  TABPRT (YIELC.MOFNC .KST.KFIN.OMMOD, VPMOO, AMPLTD.PHASQ) 

HO  EXTERNAL  SUBROUTINES  ARE  REOUIREO  

—ARGUMENT  LIST—  


YIELD 

R*4 

NO 

IN® 

MOFN3 

1*4 

NO 

IN® 

KST 

1*4 

VAR 

IN® 

XFIN 

1*4 

VAN 

IMP 

OMHOO 

R*4 

VAR 

IN® 

VPMOO 

R*4 

VAR 

IMP 

AMFLTO 

* R*4 

VAR 

1NP 

FHASQ 

R*4 

VAR 

IN® 

NO  COMMON  STORAGE  USED 

——INPUTS  — 

YIELO  ^ENERGY  YIELC  OF  EX»lOSION  IN  EQUIVALENT  KILOTONS  (XT 

OF  TNT.  I KT  s U.2X(10)**lO  ERGS. 

MOFNO  sNL’MEES  OF  NCRMAL  MCOtS  FOUND 

KST(N)  »INOEX  OF  FI^ST  TACULATEO  POINT  IN  N-TH  MODE 

SFINtN)  sINOEX  OF  LAST  TA1ULATEO  ®OINT  IN  M-TH  MODE.  IN 

GENERAL.  KFIN<HI=KST(N*ll-l. 

OHMGO(N)  sARRAY  STORING  ANGOLA®  FREQUENCY  OROrNATE  (RAC/SEC)  0 
POINTS  ON  CISFERSION  CURVES.  THc  NMOOE  MODE  IS  STOR 
FOR  N BtTMEEN  KST (NMOOE)  ANO  KFIN(NMOQE). 

VPMOO(N)  sAPPAY  STORING  PHASE  VELOCITY  ORDINATE  (KM/SEC)  OF 

POINTS  CN  OISPE°SION  CURVES.  THE  NMOOE  MOOE  IS  STOR 
FOR  N BETVEEN  KST (NMOOE)  ANO  KFIN(NMOOE) . 

AMPLTO(N)  SAMPLITUDE  FACTOR  REPRESENTING  TOTAL  MAGNIfL'CE  OF 

FOURIER  TRANSFOPM  CF  THE  CONTRIBUTION  TO  THE  HAVEFOR 
FROM  A SINGLE  GUICcC  MOCE  AT  FREQUENCY  CMMCO(N). 

ITS  UNITS  SHOULC  BE  (DYNES/CM**2> • (KM** <1/2 > > *SEC. 


TAOPRT 

1 

TABPRT 

2 

TABPRT 

3 

TABPRT 

. 4 

TABPRT 

5 

TABPRT 

6 

TAOPRT 

7 

TABPRT 

S 

TABPRT 

9 

TABPRT 

10 

TAB®RT 

.11 

TABPRT 

12 

TABPRT 

13 

TABPRT 

14 

TABFRT 

15 

TABPRT 

16 

TiJBPRT 

17 

TAOPRT 

18 

TABPRT 

19 

TABPRT 

20 

TABPRT 

21 

TABPRT 

22 

TABPRT 

23 

TA9PRT 

24 

TABPRT 

25 

TABPRT 

26 

TABPRT 

27 

TAOP*T 

28 

TABPRT 

29 

TAOPRT 

30 

TAOPRT 

31 

TABPRT 

32 

TABPRT 

33 

TABPRT 

34 

TABPRT 

35 

TABPRT 

36 

TABPRT 

37 

TABPRT 

38 

TABPRT 

39 

TABPRT 

40 

TA8PRT 

41 

TABFRT 

42 

TABPRT 

43 

TAOPRT 

44 

TABPRT 

4$ 

TABPRT 

46 

TAOPRT 

47 

TABPRT 

43 

TABPRT 

49 

TABFRT 

50 

TABPRT 

51 

TABPRT 

52 

TABPRT 

53 

TABPRT 

54 

TAOPRT 

55 

TABPRT 

56 

TABPRT 

57 

TABPRT 

58 

TAIJPRT 

59 

TAeoRT 

60 

TABPRT 

61 

TABPRT 

62 

TABFRT 

63 

TAO“RT 

64 

oo  o no  o o n o o on  o n o n o o o oo  onnnonnoononon  o'o  noooooooooooonooo 
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IT  REPRESENTS  THE  AMPLITUOE  OF  N100E-TH  MODE  IF  N IS  TABPRT 
8ETKEEN  KST (NMOCE)  AND  K.'INtNhOO-l  , INCLUSIVE.  FOR  TA9PRT 
PRECISE  CEFINITION,  SEE  SUBROUTINE  ““Alio.  TA3PRT 

PMASQtM  aPHASE  LAG  IN  RACIANS  AT  FREQUENCY  OMMCO(N)  FOR  THE  TA8PPT 
NNOCE-TH  MOQE  WHEN  N IS  BETWEEN  KST(HMOOE)  ANO  TA0BRT 

KFINCNNOCE) , INCLUSIVE.  TH£  INTEGP.ANO  IS  UNOERSTOCO  TACFRT 
TO  PAVE  THE  FORM  fl(*eLTO*COS  (OMHOO*  HIKE  “01  STANCE /VPN  TAB“RT 
...  ♦PMASQ).  FOR  A PRECISE  OSFINITICrJ.  SEE  SUBROUTINE  TABaRT 

TABPRT 
TA8PRT 
TABPRT 
TABPRT 
TABPRT 
TA0ORT 
T*BeRT 
TABPRT 
TABPRT 
TABPRT 
TABPRT 
TABPRT 
TABPRT 
TABPRT 
TABPRT 
TAQP-'T 


PPAPP. 

OUTPUTS- 

PRINTOUT.  THE  ONLY  FUNCTION  OF  TABPRT  IS  TO  PRINT  OUT  RESULTS. 
-—-EXAMPLE— 

THE  OUTPUT  FORMAT  IS  ILLUSTRATED  BELOH. 


. 

NCOS  TABULATION  FOR  Y* 

100.00  KILQTONS 

MODE  i 

....  • . 

ONEGA 

VPHSE 

AMPLTO 

PHASE 

".90100 

0.23426 

-7.01342E  20 

-3.72139 

.00200 

0.24372 

-8.02394E  20 

-4.56028 

ONEGA 

VPHSE 

AHPLTO 

PHASE 

.00100 

0.55298 

-7.95321E  10 

-2.44/98 

.00200 

0.48321 

-1.23108E  11 

2.30524 

mm 

— PROGRAh  FOLLOWS  BELOW— — 

VARIABLE  0 1 METIS  ION  I NG  IS  USED 

DIMENSION  <ST(1) ,KFIN(1) .QKMCD(i) . V°M00tt) »IMPLTO  f 1) »°HASCft) 


ABORT 

TABPRT 

TABPPT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TABPRT 

TAOFRT 

TABPPT 


TAU°P.T 

WRITE  (6,11)  YIELO  TABPRT 

11  FORMAT ( INI  ,1H  ,25X  « 22HMOQE  TABULATION  FOR  Y*»F9.Z.9H  MLCTONS  TARPRT 


TAOPPT 

START  OF  OUTER  00  LOCP  TABPRT 

00  SO  im.HCFNC  . TABPRT 

TABPRT 

WRITE  (6.21)  II  TABORT 

21  FORMAT (1H  ///, IH  ,4X,  5HM00E  ,13//,  1H  ,9X,SHCMEGA,.9X,5HVPWSe,9X,  TAOPRT 
1 6HAWPLT0,BX,5HPHASE/  ) TABPRT 

TABPPT 

K1»KST(II)  • > TAePRT 

K2*KFIN(II)  TABPRT 

TABPRT 

START  OF  INNER  00  LOOP  ......  ...  TA3PRT 

00  50  J=K1«K2  TAB3RT 

TABPPT 

50  WRITE  (6,51)  OMhCO(J),VPMOO(J),AxPLTO(J),PHAST(J)  TABPRT 

51  FORMAT  ( 1H  ,4X,F14.5,F14.5,1PG14„5,0PF14,5>  TABPRT 

ENO  OF  LOOPS  TABPRT 

TABPRT 

RETURN  TABPRT 

ENO  TABPRT 


65 

66 
67 
6# 

69 

70 
7.1 

72 

73 

74 

75 

76 

77 

78 

79 
<0 
n 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
IOC 
101 
102 

103 

104 

105 

106 


109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 


ooooooooooonooonooooooooo  on  ooooooooooo.noooo  o o o o o r>  o o'o  o o o o nnnnAO 
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SU3R0UTINE  TMPT (TFIRST. T£N0«0ELTT*RQ9S»  TMPT 

iHOFNO,KST,KFIN,CNMOO,VPMOO,AKIS.AMPLTO, "HASH, IOPT}  TMPT 

TMPT  (SUOROUTINE)  7/19/63  TMPT 

TMPT 

...  . TMPT 

-—ABSTRACT TMPT 

TMPT  ... 

TITLE  - TMPT  TMPT 

* CALCULATION  AND  PLOTTING  OF  FAR-FIELO  TRANSIENT  RESPONSE  TO  A TMPT 

PRESSURE  SOURCE  IN  THE  ATMOSPHERE  TMPT 

TMPT 


THE  RESPONSE  OF  MOOS  N IS  FOUNO  PY  INTEGRATING  (ANPLTO  • TMPT 
COST  OMEGA  * <T  - R/yo>  < PHASOI  OVER  OMEGA  FROM  OMMOQ  TMPT 
(KST(N)>  TO  CMM.COtKFINtM  > ANO  OIVIOING  9Y  SORT(R).  VP,  TMPT 
PHASQ,  ANC  AMFLTO  ARE  FUNCTIONS  OF  BOTH  N ANO  OMEGA.  TH  TMPT 
TOTAL  RESPONSE  IS  THE  SUM  OF  THE  MORAL  RESPONSES.  THE  TMPT 
RESPONSE  IS  CALCULATED  FOR  TIME  TFIRST  ANO  AT  INTERVALS  TMPT 
OF  OELTT  THEREAFTER  UNTIL  TEND  IS  REACHED.  THE  VALUE  OF  TMPT 
IOPT  CETERHINES  HHAT  HILL  3E  CALCULATED,  PRINTEO  ANO  TMPT 
PLOTTEO.  (SEE  INPUT  LIST  FOR  POSSIBLE  IOPT  VALUES. > TME  TM»T 
RESULTS  ARE  TA3ULATE0  IN  THE  PRINTOUT  ANO  GRAPHEQ  BY  THE  TMPT 
CALCOMP  PLOTTER.  TMPT 

TMPT 

TME  CURRENT  VERSION  OF  THIS  SUBROUTINE  DIFFERS  FROM  THAT  TMPT 
REPORTEC  IN  AFCRL-70-C134  IN  THAT  THE  RESULTING  THSCRETI  TMPT 
CAL  PRESSURE  PERTURBATIONS  INCLUDE  THE  EARTH  CU&VATURE  TMPT 
CORRECTION  FACTO®,  t ROES  / t RE  • SIN(R03S/R£>  ) .5  TMPT 

TMPT 


LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-6515-4I  TMPT 

AUTHOR  - J.M. POSEY.  H.I=T*.  JUNE. 1963  TMPT 

- . ...J.  TMPT  • 

TMPT 

— —USAGE ..  , TMPT 

* TMPT 

FORTRAN  SUOROUTINE  AKI  IS  CALICO  TMPT 

TMPT 

‘ CALCOM"  PLOTTER  SUBROUTINES  FLOT1,  AXIS1.  NUK9R1,  SYPDL5,  ANC  TMPT 
SCLGPH  APE  CALLED  TO  WRITE  THE  CALCOMP  TA»E.  SUnROUTIN£  NEHFLT  TMPT 
MUST  HAVE  BEEN  CALLED  PRIOR  TO  CALLING  TMPT.  ANO  EMJFLT  MUST  BE  TMPT 
CALLEO  AFTER  RETURNING  FROM  TMPT.  (SEE  MAIN  PROGRAM}  TMPT 

TMPT 

FORTPAN  USAGE  TMPT 

CALL  TM0T(TFIRST ,T£NC«  CELTT,  ROBS,  MOFND,KST,KFIN*CMMQ(I»Vaf!OD»AHPLT  TH°T 
1 , PHASD , IOPT}  TMPT 

_ TMPT 

INPUTS  TMPT 

TMPT 

TFIRST  TIME  AT  HHICH  TABULATION  ANO  PLOTTING  OF  RESPONSE  IS  TO  TMPT 

R*4  BEGIN  (SEC)  ....  TMPT 

TMPT 

TENO  TIME  AT  HHICH  TA3ULATICN  ANO  PLOTTING  OF  RESPONSE  IS  TO  TMPT 

R*4  END  (.LE. (TFI?ST*5A00.}I  (SEC}  TMPT 

TMPT 

OELTT  TIME  INTERVAL  RETKEEN  SUCCESSIVE  CALCULATIONS  OF  THE  TMPT 

R»4  RESPONSE  (.GE.  MTSNO-TFIRSn/lOOOn  (SECT  TMPT 

TMPT 

ROBS  DISTANCE  OF  THE  OESERVOR  FROM  THE  SOURCE  OF  THE  OISTUR-  TMPT 

R*4  BANCS  (KM)  TMPT 

• TMPT 

MOFNO  •'tMBEfl  CF  MOOES  FOUNO  (.LE.10)  . TMPT 

I *4  TMPT 

TMPT 

KST  ELEMENT  N OF  THIS  VECTO®  IS  NUHBER  OF  OMMCO  ELEMENT  HHIC  TMPT 

t*4(D)  IS  FIFST  FSECUENCY  CONSIDERED  FOR  MODE  N TMPT 


1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 
17 
13 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3« 

39 

40 

41 

42 

43 
•>4 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
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c 

* 

THPT 

65 

e 

KFXN 

ELEMENT  N OF  THIS  VECTOR  IS  NUHBER  OF  OMNCO  ELEMENT  WHIC 

TMPT 

66 

c 

I*4C0) 

IS  LAST  FREQUENCY  CONSXCE.REQ  FOR  MOOE  N 

THPT 

67 

e 

TMPT 

68 

c 

OMMOC 

ELEMENTS  OF  THIS  VECTOR  NUMOEREO  KSTCN)  THROUGH  KFIMNJ 

TMPT 

69 

c 

R*4C0) 

ARE  THE  VALUES  OF  FPEQUENCY  CIN  INCREASING  ORDER)'  FOR 

TMPT 

70 

c 

WHICH  THE  CORRESPONDING  MOOE  N PHASE  VELOCITIES  HAVE  BEE 

TMPT 

71 

c 

DETERMINED 

TMPT 

72 

e 

THPT 

73 

c 

VPHOO 

VECTOP  OK  PHASE  VELOCITIES  WHICH  CORRESPOND  TO  THE  FRE- 

TMPT 

74 

c 

R*4C0) 

QUENCIES  OF  VECTOR  OHMCO 

TMPT 

75 

c 

TMPT 

76 

c 

AMPLTO 

VALUES  CF  AMPLITUDE  FUNCTION  IN  AKI  INTEGRAL  CELEMENTS 

TMPT 

77 

c 

R»4<0) 

CORPESPONO  CIRECTLY  TO  ELEMENTS  OF  CMMOD)  CCYNES/CH**2) 

TMPT 

78 

c 

TMPT 

79 

c 

PHASQ 

TERM  IN  ARGUMENT  CF  COS  IN  AKI  INTEGRAL  WHICH  IS  INCEPEN 

TMPT 

80 

c 

R*4C0) 

DENT  OF  TI-E  ANC  OISTANCE  CROSS) 

THPT 

81 

c 

TMPT 

82 

c 

iopt 

COMPUTATION  ANG  P»INT  OPTION  INDICATOR 

THPT 

83 

c 

1*4 

« 1.2. ....10  CALCULATE.  PRINT  ANO  PLOT  MOOE  NO.  ICPT  ON 

THPT 

84 

c 

a 11  CALCULATE.  PRINT  ANO  PLOT  ALL  MOOES  AS  WELL  AS  THE 

TMPT 

85 

c 

TOTAL  RESPONSE 

TMPT 

86 

c 

« 12  CALCULATE  ALL  MOOES.  PRINT  ANO  PLOT  TOTAL  RESPONSE 

THPT 

87 

c 

ONLY 

THPT 

88 

c 

. _ 

TMPT 

89 

c 

OUTPUTS 

* 

TMPT 

90 

c 

TMPT 

91 

c 

THE  ONLY  OUTPUTS  ARE  THE  PRINTOUTS  AND  PLOTS  CALLED  FOR  PY  IOPT. 

TMPT 

92 

c 

ALL  CRAOHS 

i ARE  CPAWN  TO  THE  SAME  SCALE.  THE  PRESSURE  SCALE  IS 

TMPT 

93 

c 

OETERMINEC 

: 3Y  THE  MAXIMUM  AMFLITUCE  OF  THE  TOTAL  PRESSURE.  ANC  THE 

TMPT 

94 

c 

TIHE  SCALE 

: IS  600  SEC  PER  INCH.  PRESSURE  IS  EXPRESSED  IN  OVNES/CM 

TMPT 

95 

c 

TMPT 

96 

c 

• 

■ 

TMPT 

97 

c 

••••PROGRAM  FOLLOWS  BELOW 

TMPT 

98 

c 

• 

TMPT 

99 

e 

. 

TMPT 

100 

e 

TMPT 

101 

c 

• 

TMPT 

102 

OIHENSION 

KSTClO.KFINClO)  .CMMOD  CIO  00)  .VPM03  (3.000  V.AMPLTO  C 10C0)  . 

TMPT 

1C  3 

t PHASOC1 

eoo),Tuoci>,TCTiNTctooi).TNiNrcic.taci).YCuai> 

TMPT 

104 

OXHENSION 

cxmooo) 

TMPT 

105 

OIMENSION 

AXIS  C 1000 ) 

TMPT 

106 

c 

' 

TMPT 

107 

c 

YAX  IS  VECTO0 

OF  LITERAL  CONSTANTS.  ELEMENT  N IS  THE 'EIGHT  SPACE  LAS 

TMPT 

10  A 

c 

FOR  THE  PRESSURE  AXIS  ON  THE  GRAPH  OF  THE  NODE  N RESPONSE. 

Tf  ®T 

109 

OOUSLE  PRECISION  YAXC10) 

THPT 

110 

OATA  YAX/8H  NODE  1 , «H  FOQE  2 , SH  NODE  3 * AH  MOOS  4 ,AH  KOOE  5 . 

THPT 

111 

1 AH  MODE 

6 .AH  mode  7 .an  MODE  * > SH  MOOE  S .AH  MCOE  10/ 

TH»T 

112 

XFCIOPT  . 

NE.  11)  GO  TO  4 

TMPT 

113 

WRITE  C6, 

2) 

THPT 

114 

2 FORMAT  C1H1,  40X.23HTACLLATION  OF  RESPONSES//} 

TMPT 

115 

WRITE  tb. 

3) 

TMPT 

116 

3 FORMAT  C1H  ,20X,4HTIME,12X,5HTOTAL.UX,6HNOOE  1.1QX.6HHOOE  2,10X» 

TMPT 

117 

1 6HMOOE 

3.10X.FHMGDE  M.lOX.fjHHQr.E  5/) 

TMPT 

114 

4 XFCIOPT. E 

D.12)  VlPITE  (6.753) 

TMPT 

119 

75.3  FORMAT  C 1H1 , 45X .40HTA9LL AT  ION  OF  ACOUSTIC  PRESSURE  RESPONSS///IH 

THPT 

120 

. X 44X.10HYIME  CSEC) .9X.15HP  COYNE S/CM**2> //> 

TMPT 

121 

c 

TM°T 

122 

c 

L IS  NUMBER  OF  TIMES  AT  WHICH  RESPONSE  IS  TO  BE  CALCULATED 

THPT 

123 

L * CTENC 

-TFIRS7)  / CiLTT  ♦ 1 

THPT 

124 

L*MINQ  CL. 

999) 

TMPT 

125 

c 

TMPT 

126 

c 

SIZE  IS  THE  LENGTH  OF  THE  TIME  AXIS  IN  INCHES 

tm°t 

127 

SIZE  * C 

TENO  - TFIRST  5 / 600.0 

TMPT 

128 

OO  UUO  O O UU  O U 'OOU  u u 
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V 


e 

PRESET  ALL  RESPONSE  VALUES  TO  'O.S 

TMPT 

129 

e 

TNPT 

130 

. 5 00  7. <*1  .L 

TMPT 

131 

TOTINT(k)  a 0.0 

THPf 

132 

00  7 N«1.10 

TMPT 

133 

7 TNINT (N»K)  * 0.0 

TMPT 

134 

e 

TMPT 

135 

c 

SET  UP  TA0LE  OF  TIMES  BEGINNING  AT  TFIRST  ANO  TAKING  VALUES  OF  TINE  A 

TMPT 

136 

c 

INTERVALS  OF  0ELTT  UNTIL  TEN0  IS  REACHEO 

TMPT 

137 

9 00  10  XT31.L 

TMPT 

138 

10.TCIT)  * TFIRST  ♦ «T-1)*0ELTT  . . 

TMPT 

139 

c 

TMPT 

140 

c 

BEGIN  SET  U»  TO  CALCULATE  MODS  t RESPONSE 

TMPT 

141 

N « 1 

TMPT 

142 

c 

TMPT 

143 

c 

IF  IOPT.LE.tO  CALCULATE  ONLY  HOOE  I0FT  RESPONSE 

TMPT 

144 

IF  <IO“T.L£.10J  N * toot 

TMPT 

145 

11  NOST  3 KST(N)  ♦ 1 

TMPT 

146 

NO*N  » KFIN(N)  . 

TMPT 

147 

e 

TMPT 

14S 

c 

OETERMINE  THE  EARTH  CURVATURE  CORRECTION  FACTOR  TIMES  ROBS** (-0 .5» . 

TMPT 

149 

RAO  s ROSS  / 6174. 

TMPT 

150 

CF  3 (l./(6374.*ABS(SXMRAO>)))**0.5 

TMPT 

151 

c 

TMPT 

152 

c 

THE  MODE  N RESPONSE  IS  FOUNC  FOR  ALL  VALUES  OF  T BEFORE 

NEXT  MODE  IS 

TMpr 

153 

c 

CONSIOEREO 

TMPT 

154 

00  SI  IT31.L  . 

TMPT 

155 

c 

TMPT 

156 

c 

SET  A2.PH2  EQUAL  TO  VALUES  FOR  A1.PH1  IN  FIRST  INTEGRATION  INTERVAL 

TMpr 

157 

• J26  3 KST(N) 

TMPT 

159 

A2  « ANPLT3I J26)  ..  . _ ... 

TMPT 

159 

A2  « A2*EXP(-AKIS(J26I*R03S) 

TMPT 

160 

NHNR  3 RAO/ 3, 1415926535 

TMPT 

161 

• PHASQt J26)  3 PHASO ( J2o»  ♦ NHMR*t3. 1415926535/2. 01 

TMPT 

162 

'.  S2»ONMOO  (J25I/VPN00  ( J2c  ) -PHASO IJ26)  /ROSS 

TMPT 

163 

SLOM«TUTJ/RO<1S 

TMPT 

164 

OIOOLE»SLOW-l.  C'/VPMOO  { J26I 

TMPT 

165 

PH2*ROSS*  C0MMC0tJ26>*CICCLE*PHASCCJ25) /ROSSI 

TMPT 

166 

PHASQ ( J26)  * PHASQ ( JZ6)  - NHNR* (3.1415926531/2.01 

. *< 

TMPT 

167 

CTRIG2*C0S(PH2) 

TMPT 

169 

STRIG2*SIN(PH2)  . 

TMPT 

169 

c 

TMPT 

170 

c 

THE  INTEGRAL' OF  (AMPLTO  * CCSfOMEGA  • (T  - ROSS/V®)  PHAS’D ) OVER  TH 

TMPT 

171 

c 

INTERVAL  FROM  OHMOO<KST<N)J  TO  OMNOOtKFIN(N))  is  FqUNO 

BY  SUMMING  THE 

TMPT 

172 

c 

INTEGRALS  FR CM  OMHCOTNOM-l J TO  OflMOOCNQM)  FOR  NOM  FP.CN 

icsrtNm  to 

TMPT 

173 

c 

KFININI 

TMPT 

174 

00  50  NOM  » NOST.NOFN 

TMPT 

175 

A1  * . A 2 

TMPT 

176 

PHI  » PH 2 . . . . ...  . 

TMPT 

177 

CTRIG1*CTRIG2 

TMPT 

179 

STRIG1*S  TRIG2  , 

TMPT 

179 

S1*S2 

TMPT 

190 

A2  3 AMPLTO (NOM ) “EXP ( -AXIS  (NOM)*308S>  ..  . 

TMPT 

191 

NHNR  » RAO/3. 1415926535 

TMPT 

192 

PHASO (NOM)  3 PHA;q (NON)  ♦ AH WR*(I. 1415 92 6 53 5/2.0) 

TMPT 

193 

SI^OMHCC  (NOM > /V  PMOO  (NON ) -PHAS'mCM>/R09S 

TMPT 

194 

OIOOLE*SLOW-1.0/VPMOC<NOM)  ...  . 

TMPT 

195 

FH2«ROP3* (OMMOO (KOM) *CICCLE*PHASC(NOM) /ROSS) 

TMPT 

166 

PHASKNOM)  = PHAECMNC.I)  - NHNR* (3. 1415926535/2.0) 

TMPT 

197 

OHEClsOPMOn<HOM-l) 

TMPT 

199 

0HEG2*0PP03(N0M) 

TMPT 

199 

OEIPH  3 FOSS  * I SLOW  * ( OMEG2  - OMEGl  ) - ( S2  - 

SI  ) > 

TMPT 

190 

CALL  AKI(0MEG1.CPEG2.A1.A2.CTPIG1.STRIG1,CTRIG2»STRIG2. 

TMPT 

191 

1 0EL8H» AKIINT) 

TMPT 

192 

i 


i 
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50  TNINT(N» IT)  « TNINT (N. IT)  .♦  AKXINT 

PRESSURE. IS  EQUAL  TO  CF  • ( VALUE  OF  OMEGA  INTEGRAL  » 

51  TNINT (N« IT!  « CF  * TNINT  (N. XT) 

IF  I0PT.LE.1C  ALL  THAT  IS  REQUESTED  IS  THE  NOOE  IQPT  RESPONSE*  WHICH 
HAS  JUST  SEEN  CALCULATES 

IF  (IOPT.LE.10)  GO  TO  101 


INCREASE  NOOE  HUMBER  BY  ONE 

N * N ♦ 1 

IF  N IS  GREATER  THAN  MOFKO,  ALL  NODAL  RESPONSES  HAVE  BEEN  OETERNINEO 
IF  (N.LE.NOFNO)  GO  TO  11 


FOR  EACH  TINE  IN  T SET  TOTAL  PRESSURE  EQUAL  TO  SUN  OF  NOOAL  PRESURES 
OO  60  IT*1«L  ... 

do  S3  N 3 l.HQFNO 

53  TOTINT(IT)  a TCTINT(IT)  «■  TMNTIN.IT)  ... 

IF (IOPT.EQ.  11)  GO  TO  55 

WRITE  TINE  ANO  CORRESPONDING  TOTAL  ACOUSTIC  RESPONSE  (CYNES/CM*»2) 
WRITE  (6*54)  T{ IT) ♦ TOT INT ( IT) 

54  FORMAT  (1H  ,49X,F9.1,10X,F12.2) 

WHEN  IOPT.EO.12  ONLY  TOTAL  RESPONSE  IS  PRINTED  r 

IF  (IOPT.EQ. 12)  GO  TO  59  • 


WHEN  IOPT.EQ.il  ALL  NOCAL  RESPONSES  ARE  ALSO  PRINTEO 
55  NN  « NINO  CNOFNO.5) 

WRITE  (6,57)  IT.T(IT),TCTINT(IT).(TNINT(N,IT).N*1.NN) 

57  FORMAT  (1H  ,V,I4,10X,F9.1,5X.F12.4.4X.F12.4,4X,F12.4,4X,F12.4, 

• 1 4X.F12.4*  «X.F12.4)  ..  .... 

59  CONTINUE 

60  CONTINUE  ..  . ...  .. 

IF  (NOFNO  iLE.  5 .OR.  IQPT  .NE.  11  ) GO  TO  65 

WRITE  (6,61) 

61  FORMAT  (1HQ <2QX «4HT IME .12X.5HTOTAL » 11X.6MMO0E  6.10X.6HHOOE  7.10X 

i 6HM00E  8.10X.6MMOOE  9.10X.7HMOCE  10/)  . . 

00  63  ITal.L 

63  WRITE  (6.57)  IT.T(IT)  .TOTINT(IT)  , (TNINT (N»m rN*5.NDFNO) 


65  CONTINUE'  ’ ..  _ 

66  CALL  "LOT (2. . .3. ”3) 

. . SIZE  IS  THE  NUM95R  OF  SECONOS  PEC  INCH  IN  THE-  PLOT 
SIZE  « <T(U-T(l>)/600. 

IF  (IOPT.LE.10)  GO  TO  107 
CALL  SCALE(T0TlHT,3.e.L.l) 

AFTER  SCALE  "ETU"NS,  TCUNT<L*1)  IS  THE  NININUN  VALUE  OF  THE 
FIRST  L VALUES. 

TOTINT(L«2>  IS  (MAX-MINI /J.O  OF  THE  FIRST  L VALUES  OF  TOTINT 
UNIN  IS  MAX-HIN  CF  TOTINT 

UHIN*TOTIHT (L»2>*3.0  _ 

UHIN  a A INT (UN IN/25)  * 25.0 


...  UNINs ANA XI (UHIN, 25 ♦) 

AT  THIS  FOINT  OY  IS  THE  TOTAL  RANGE  IN  TOTINT  M0025 
OY  a ABS(UHIN) 

TOTINT(L«2)aOY/3.0 

OYaOY/3.0  . 


IF  IOPT.EQ. 12  "LOT  ONLY  THE  TOTAL  ACOUSTIC  RESPONSE 
IF  (IOPT.EQ, 12)  CO  TO  70 
C 

C DRAW  PRESSURE  AXIS 


THPT 

193 

THPT 

194 

THPT 

195 

THPT 

196 

THPT 

197 

TNPT 

198 

THPT 

199 

THPT 

200 

THPT 

201 

THPT 

202 

THPT 

203 

THPT 

204 

TM"T 

20S 

THPT 

206 

THPT 

207 

THPT 

208 

THPT 

209 

THPT 

210 

THPT 

211 

THPT 

212 

THPT 

213 

THPT 

214 

THPT 

215 

TNPT 

216 

THPT 

217 

TNPT 

218 

THPT 

219 

TNPT 

220 

THPT 

221 

THPT 

222 

TNPT 

223 

THPT 

224 

THPT 

225 

THPT 

226 

TNPT 

227 

THPT 

228 

THPT 

229 

, THPT 

230 

TN»T 

231 

THPT 

232 

TNPT 

233 

TNPT 

234 

TNPT 

235 

THPT 

236 

TNPT 

237 

TNPT 

238 

• TNPT 

239 

TN»T 

240 

TNPT 

241 

TNPT 

242 

TNPT 

243 

TNPT 

244 

TNPT 

245 

TNPT 

246 

THPT 

247 

TNPT 

248 

THPT 

249 

TNPT 

250 

TNPT 

251 

TNPT 

252 

THPT 

, 253 

THPT 

254 

TNPT 

255 

THPT 

256 

t 
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CALL  PLOT(0.,Q.,3> 

TMPT 

257 

ABC  « HOFNO 

TMPT 

258 

CALL-  .PLOT(A0C,O»  <2) 

TMPT 

259 

00  69  N»l. HOFNO 

TMPT 

260 

00  67  J*1.L 

TMPT 

261 

67 

V(J>  * -1  * TNINT (N. J) 

TMPT 

262 

68 

CALL  °L0T (1. « 0. • *3) 

TMPT 

263 

c 

TMPT 

264 

c 

•PLOT  ACOUSTIC  RESPONSE  (CYF£S/CM**2)  OP  CODE  N VERSUS  TIME  (SEC) 

TMPT 

265 

Y(L*1)*0.0 

TMPT 

266 

Y(L*2)sTOTINT(L*2)  . . 

TMPT 

267 

T(L-*1)  *T  (1)  - • ' - ' 

TMPT 

268 

T(L*2I*600. 

TMPT 

269 

69 

CALL  LINE(Y,T,L»1.0,0) 

TMPT 

270 

c 

* **  '• 

TMPT 

271 

70 

00.73  J31»L 

TMPT 

272 

73 

Y(J)  « (-1)  * TOTINT(J) 

TMPT 

273 

c 

. * - 

TMPT 

274 

c 

ORAM  PRESSURE  AXIS  ..  . _ 

TMPT 

275 

75 

CALL  *’LOT(0  • » Q . » 3) 

TMPT 

276 

CALL  PLOT (3  • «0 • « 2)  ... 

TMPT 

277 

CALL  PLOT(i.5» 0.4-3) 

TMPT 

270 

CALL  NU«eeR(.9,-.15..1S.OY.18Q.,0> 

TMPT 

279 

CALL  SYNeOL<.<4.-.15..1S."HICROBARS  PER  INCH", 150 18) 

TMPT 

280 

CALL  AXIS(1. 5.0.  .**  "»1,  SIZE.  90.  «T(1),  600.)  ... 

TMPT 

281 

CALL  SYM90L(1.8,2.,.1S,"TIME  (SEC) “» 90 . ,10) 

TMFT 

202 

Y(L«1)*G.G  . . 

TMPT 

203 

Y(L*2) 3TOTINT(L>2) 

TMPT 

284 

T(L41)=T(1)  .... 

TMPT 

205 

T(L+2)*600. 

TMPT 

206 

CALL  LINF(Y.T.L.l.D.O) 

TMPT 

207 

CALL  PLOT(3.,-.3,-3) 

TMPT 

200 

CO  TO  200.  , 

TMPT 

289 

c 

TMPT 

290 

c 

PRINT  HISTORY  OF  MCCE  IOPT  CNLY  .......  . 

TMPT 

291 

101 

WRITE  (6,102)  IOFT 

TMPT 

292 

102 

FORMAT  (1H1,45X,19MTASULATICN  OF  MODE  ,12,  9H  RES°0NSE7//iH  ,46X, 

TMPT 

293 

1 10HTIME  (SEC) ,9X,15HF  < DYNE S/CM*»2 » // > 

TMPT 

294 

00  103  IT=1,L 

TMPT 

295 

103 

WRITE  (6.104)  T(IT),TKIST(  IO°T , IT) 

TMPT 

296 

106 

FORMAT  (1H  ,49X,F9.1,10X,F12.4>  „ 

TMPT 

297 

GO  TO  66 

TMPT 

290 

c 

TMPT 

299 

c 

IF  IOOT.LT.il  PLOT  ONLY  ACCUSTIC  RESPONSE  OF  MOOE  ICPr  ” 

TMPT 

300 

107 

DO  1Q«  J=1,L 

TMPT 

301 

100 

Y(J)3(-l)*TNINT(IOPT,J) 

TMPT 

302 

c 

TMPT 

303 

c 

OETERMINE  SCALE  FOR  PRESSURE  AXIS  WHEN  rOPT.LT.il 

TMPT 

304 

111 

CALL  SCALE (Y , 2 . C ,L» 1) 

TMPT 

3C5 

UMIN=Y (L*2>  *2.0 

TMPT 

306 

UMIN=AINT  <UHI'l/25)*25,a 

TMPT 

307 

UHIN*AMAX1(UMIN,25.) 

TMPT 

300 

OY»AOS (UMIN) 

TMPT 

309 

Y(L*2)=OY/2.0 

TMPT 

310 

OY*OY/2. 0 

TMPT 

311 

CO  TO  75 

TMPT 

312 

c 

TMPT 

313 

200 

RETURN 

TMPT 

314 

ENO 

TMPT 

315 

t 
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SU9R0UTINE  TCTINT<bMEGA,AKX.A<V.IT»L»XINT.PMU.PHI2)‘ 

SUSPCT  (SUBROUTINE)  7/19/68  LAST  CARO  IN  OSCK  IS 

. V 


— — AOSTRACT 

TITLE  - SUSPCT 

EVALUATION  CF  SUSPICION  INDEX  OF  ELEMENT  IN.H)  OF  MATRIX  INMOO 

SUSPCT  EVALUATES  THE  SUSPICION  INDEX*  ISUS.  OF  THE  ELEME 
IN  RON  N«  COLUMN  M OF  THE  MATRIX  INMOOE  ( {N,M»  MUST  BE 
AN  INTERIOR  ELEMENT).  THE  NEIGHBORS  OF  IN*M)  ARE  CEFINE 
TO  PE  THE  EIGHT  ELEMENTS  WHICH  FORM  THE  THREE  BY  THREE 
- ELEMENT  SQUARE  V.HIp*'  HAS  f N*M)  AT  ITS  CENTER.  THEY  ARE 

NUMBERED  FROM  ONE  TO  NINE  BEGINNING  IN  THE  UFDER  LEFT  AN 

2..,.  PROCEEDING  CLOCKWISE  (NC.  1 AMD  NO.  9 ARE  SAME  ELEMENT). 

EACH  ELEMENT  OF  MATRIX  INMOOE  MUST  HAVE  ONE  OF  THREE 
VALUES.  -1.  1.  OR  5.  (N.M)  IS  NOT  SUSPICIOUS  ANO  ISUS  * 

0 IF  ANY  ONE  CF  THE  FOLLOWING  CONDITIONS  HOLOS. 

i.  ELEMENT  (M.M)  a 5 

• . ... , . . ..2.  ANY  CF  ITS  NEIGHBORS  * 5 

3.  NOWHERE  IK  THE  3X3  ARRAY  OF  (N.M)  AnO  ITS  NEIGH 
BORS  COES  THERE  AeoEAR  TO  BE  A DISPERSION  CURVE 
WITH  POSITIVE  SLOPE 

OTHERWISE  ISUS  IS  SET  EQUAL  TO  THE  N'JHBER  OF  THE  1UADRAN 
„ . . . IN  WHICH  THE  FCSITIVE  SLOPE  APPEARS.  THE  QUAORAHTS  ARE 
NUHBEREC  BEGINNING  IN  THE  UPPER  LEFT  ANC  FROCEOING  CLOCK 


LANGUAGE.  - FORTRAN  XV  C3E0,  REFERENCE  NANUAL  C28-6515-6) 
AUTHORS  - A. 0. PIERCE  ANC  J.POSST.  H.I.T.*  JUNE. 1968 


•-•-USAGE*— - ..  . 

NO  FORTRAN  SUBROUTINES  ARE  CALLEC  . . . ... 

FORTRAN  USAGE  . ' 

CALL  SUSCCT (N.H.KROW. INMOOE. ISUS) 

INPUTS  * ~ 

N ""  ROW  NUMBER  OF  ELEMENT  UNDER  CONSIDERATION  (MfY  NOT  eE 

X*6;  . . FIRST  OR  LAST  ROM) 

M COLUMN  NUMBER  OF  ELEMENT  UNOER  CCNSIOERAION  (MAY  NOT  BE 

1*6  FIRST  OR  LAST  COLUMN) 

NROW  TOTAL  NUMBER  OF  ROWS  IN  INMOOE 

1*6 

INMOOE  MATRIX  UNOEP  CCNSIOERATTON  STOREO  IN  VECTOR  FORM.  COLUMN 
■ I*6( D)  AFTER  COLUMN.  EACH  ELEMENT  MUST  BE  -1,  t.  OR  5* 

OUTPUTS 

ISUS  SUSP;: T N INOEX  OF  ELEMENT  (N.M).  SEE  ABSTRACT  ABOVE  FO 

• 1*6  OEFI*  ION. 


—EXAMPLES—— 


TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 

TOTINT 


1 

2 

3 

6 

5 

6 

7 

8 
9 

10 

11 

12 

13 

16 

15 

16 

17 

18 
19 

ze 

21 

22 

23 

26 

25 

26 

27 

28 

29 

30 

31 

32 

33 
36 

35 

36 

37 

38 

39 
60 
61 
62 
63 
66 

65 

66 

67 

68 
69 

50 

51 

52 

53 
56 

55 

56 

57 
5* 

59 

60 
61 
62 
63 
66 
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CALL1NG  PROGRAM 

DIMENSION  INHOCE (9) 

INMODE  * -1.  -1*  1*  1»  -1*  1«  1*  1» 
CALL  SUSFCT(2»2 ,1*  INMCOE.ISUS) 

MRITC  (6.200)  ISUS 

200  FORMAT  C10H  EXAMeL£  l*cX,  6HISUS  «»I2) 
INMODE  * -1.  -1.  1*  1*  “1«  ”1*  i»  *•  1 
CALL  SUSeCT (2,2, T, INHOCE .ISUS) 

WRITE  (6*300)  ISUS 

300  FORMAT  (10H  EXAMPLE  2*fiX«  6HISUS  »«I2) 
END 


TMPT  (SUBROUTINE) 


7/19/6B 


—ABSTRACT— 

**  ^ CALCULATION  ANO  "LOTTING  OF  FAR-FIELQ  TRANSIENT  RESPONSE  TO  A 
PRESSURE  SOURCE  IN  THE  ATMOSPHERE 

THE  RESPONSE  CF  MOOE  N IS  FOUNO  BY  INTEGRATING  (ANPLTO  * 
COS(  OMEGA  * (T  • P/VP)  ♦ PMASQ)  OVER  OMEGA  FROM  OKMOO 
(RST(N))  TO  OMMOOtKFIN(N>)  ANT  DIVIDING  9Y  SORT(R).  VP. 
PHASQ*  »ND  AMfLTO  APE  FUNCTIONS  OF  BOTH  N AND  OMEGA.  TH 
TOTAL  P'SPONSE  IS  THE  SUM  OF  THE  MOCAL  RESPONSES . THE 
RESPONSE  IS  CALCULATES  for  TIME  TFIRST  ANO  AT  INTERVALS 
OF  OELTT  THEREAFTER  UNTIL  TEHO  IS  REACHED.  THE  VALUE  OF 
TOPt” DETERMINES  WHAT  WILL  BE  CALCULATED,  POINTED  ANC 
PLOTTEO.  (SEE  INPUT  LIST  FOR  POSSIBLE  IOPT  VALUES.)  THE 
RESULTS  ARE  TAeULATEO  IN  THE  PRINTOUT  ANO  GRAPHEO  8T  THE 
CALCOMP  PLOTTER. 

T.|p  CURRENT  VERSION  OF  THIS  SUBROUTINE  DIFFERS  FROM  THAT 
REPORTED  IN  AFCSL-70-0134  IN  THAT  THE  RESULTING  THECRETI 
CAL  PRESSURE  PSsTUPBATICNS  INCLUDE  THE  EARTH  CURVATURE 
CORRECTION  FAC  ICR*  ( RGBS  / ( RE  * SIMROOS/RE)  ) )*»0.5 


LANGUAGE 

AUTHOR 


FORTRAN  IV  (360,  REFERENCE  HANUAL  C2S-651S-4) 
J.H. POSEY,  K.I.T.,  JUNE.tSBB 


••••USAGE"”* 


FORTRAN  SUBROUTINE  AKI  IS  CALLED  . . 

CALCOM0  PLOTTER  SUBROUTINES  FLOT1.  AXIS1,  NUM3R1.  SYMBL5.  ANC 
SCLGPH  APE  CALLED  TO  WRITE  THE  CALCOMP  TAPE.  SUBROUTINE  N5WFLT 
MUST  HAVE  OEEN  CALLEC  PRIOR  TO  CALLING  TMPT,  AND  ENOFLt  MUST  BE 
CALLiO  AFTER  RETURNING  FROH  TM°T.  (SEE  MAIN  »ROGRAH) 

CALL  TMPT ( TF IRST .TEND* CELTT»R09S »MOFNO*RST,KFIN*CMMCC»VPMOC* AMPLY 
1 ,PHASQ»I0PT> 

INPUTS 

TFIRST  TIME  AT  WHICH  TABULATION  ANC  PLOTTING  OF  RESPONSE  IS  TO 
R*4  BEGIN  (SEC) 

TENO  TINE  AT  WHICH  TABULATION  ANC  PLOTTING  OF  RESPONSE  IS  TO 

TOTINT  (SUBROUTINE)  7/27/68  LAST  CARO  IN  OECK  IS 


i 


nooonnnnooon oo oooooocioooooooooonooooooooooonnooooooooooooooooooo 
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— -ABSTRACT— — 

TITLE  - TOTINT 

THIS  SUBROUTINE  CONFUTES  THE  TOTAL  INTEGRAL 

XINT  » INTEGRAL  OVER  Z FROM  0 TO  INFINITY  OF 

A3IZI«CA1(Z)*F1(Z»  4 A2(Z)4F2(Z)>**2  tl 

THE  ATMOSPHERE  IS  ASSUHSO  TO  9E  REPRESENTED  IN  A MULTILAYER  FO 
WITH  A1.A2,  ANO  A3  CONSTANT  IN  EACH  LAYER.  THE  INTEGFAL  IS 
EVALUATEO  AS  A SUM  OF  INTEGRALS  OVER  INDIVIDUAL  LAYERS. 

THE  FUNCTIONS  F1(Z)  ANO  F2 ( Z)  ARE  CONTINUOUS  ACROSS  LATER 
80UN0ARIES  AND  SATISFY  THE  RESIOUAL  EQUATIONS 

OFUD/OZ  * AC1.1»*F112»  4 ACL.2)*F2tZ>  t2 

OF2CZ1/OZ  * A (2, 1) *F1 ( Z)  4 A(2,2)»F2(Z>  12 

. . WHERE  THE  ELEMENTS  CF  THE  MATRIX  A (COMPUTEO  ST  SUBROUTINE  AAA 
ARE  CONSTANT  IN  EACH  LAYER. 

THE  FUNCTIONS  FI (21  ANO  F2(Z!  ARE  ASSUMED  TO  SATISFY  THE  UPPER 

BOUNDARY  CONDITION  THAT  BOTH  CECRE'.SE  EXPONENTIALLY  WITH 

INCREASING  “EIGHT  IN  THE  UPPER  HALFSPACE.  THE  NORMALIZATION 
...  . OF  THE  FUNCTIONS  IS  SUCH  THAT  AT  THE  LOWER  30UN0ARY  ZO  OF  THE 
UPPER  HALFSPACE 

F1(Z0M  “SORT  (G)*AC1,2)  C3 

F2 (ZOI * SQRT(G|4<G4A<l,m «3 

. .WITH _ 

G « SORT (A (1»1)4*2  4 A(1,2)*A(2,1)>  . . <4 

THE  ELEMENTS  A(I,J»  IN  EONS.  (31  ANO  (4)  ARE  THOSE  APPROPRIATE 

TO  THE  UPPER  MALFSPACE.  IF  G»*2  IS  NEGATIVE,  THE  PROGRAM  . 
RETURNS  L*-l.  OTHERWISE  IT  RETURNS  L*l.  . . 

PROGRAM  NOTES . 

<.  THE  INTEGRATION  OVER  THE  U“P£R  HAL*S“ACE  IS  PERFORMED  BY 
CALLING  UPIM.  THE  INTEGRATIONS  OVER  THE  LAYERS  OF  FINI 
THICKNESS  ARE  PERFORMED  BY  CALLING  ELINT.  . . 

THE  PARAMETERS  A1.A2.A3  OE»END  IN  GENERAL  ON  ANGULAR 

FREQUENCY  OMEGA,  HORIZONTAL  WAVENUMPE?  COMPONENTS  A«X 

.ANO  ANY.  SOUNC  SPEED  C,  ANO  WINC  VELOCITY  COMPONENTS  VX 

ANO  VY.  THE  FORMULAS  USED  APE  CONTROLLED  eY  THE  INPUT 
..  PARAMETER  IT  WHICH  IS  TRANSMITTED  TO  SUBROUTINE  USEAS, 

...  THE  PARAMETERS  DEFINING  THE  MULTILAYER  ATMOSPHERE  ARE 
PRESUMEC  3T0RE0  IN  COMMON 

LANGUAGE  - FOPTRAN  IV  (260,  REFERENCE  MANUAL  CZ8-6S15-4) 

AUTHOR  - A. 0. PIERCE,  M.I.T.,  JULY, 1969 

——CALLING  SEQUENCE 

SEE  SUBROUTINE  NAHPDE 

01  MENS  ION  CI(100),VXI (100) ,VYI(10Q> , HI (100) ,PHtl (100 ) ,PHI2 (10C > 
COMMON  IWAX,CI,VXI,VYI,HI  (THESE  MUST  BE  IN  COMHON) 

CALL  •T0TINT(CMEGA,AKX,AKY»IT,L»XINT,PHI1,PHI2> 


TOTIKT 

129 

TOTINT 

130 

TOTINT 

131 

TOTINT 

132 

TOTINT 

133 

TOTINT 

134 

TOTINT 

135 

TOTINT 

136 

TOTINT 

137 

TOTINT 

139 

TOTINT 

139 

TOTINT 

140 

TOTINT 

141 

TOTINT 

142 

TOTINT 

143 

TOTINT 

144 

TOTINT 

145 

TOTINT 

146 

TOTINT 

147 

TOTINT 

149 

TOTINT 

149 

TOTINT 

150 

TOTINT 

151 

TOTINT 

152 

TOTINT 

153 

TOTINT 

154 

TOTINT 

155 

TOTINT 

156 

TOTINT 

157 

TOTINT 

159 

TOTINT 

159 

TOTINT 

160 

TOTINT 

161 

TOTINT 

162 

TOTINT 

163 

TOTINT 

164 

TOTINT 

165 

TOTINT 

166 

TOTINT 

167 

TOTINT 

168 

TOTINT 

169 

TOTINT 

170 

TOTINT 

171 

TOTINT 

172 

TOTINT 

173 

TOTINT 

174 

TOTINT 

175 

TOTINT 

176 

TOTINT 

177 

TOTINT 

176 

TOTINT 

179 

rorrNT 

180 

TOTINT 

181 

TOTINT 

182 

TO TINT 

183 

TOTINT 

184 

TOTINT 

185 

TOTINT 

186 

TOTINT 

187 

TOTINT 

188 

TOTINT 

189 

TOTINT 

190 

TOTINT 

l°l 

TOTINT 

192 

nnnnon oooonooonooooooooooooooooooooooooooooooonooonooooo 
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TOTINT 

1R3 

— - EXTESNAt  SUBROUTINES  REQUIRED—— 

TOTINT 

194 

TOTINT 

195 

AAAAtNMHM 

.CAI.S AI.USEAS.UPINT.ELINT .8B98 

TOTINT 

196 

•TOTINT 

19  r 

AAAA  ANO 

EBBS  ARE  CALLEC  BY  ELINT. 

TOTINT 

198 

CAI  ANO- SAX  ARE  CALLED  9T  3B89. 

TOTINT 

199 

TOTINT 

ZCO 

—ARGUMENT  LIST 

TOTINT 

201 

TOTINT 

ZOZ 

ONEGA 

R*4  NO  IUP 

TOTINT 

203 

AKX 

R*4  NO  INP 

TOTINT 

204 

A ICY 

R*4  NO  INP 

TOTINT 

205 

IT 

1*4  NO  INP 

TOTINT 

206 

C 

1*4  NO  OUT 

TOTINT 

207 

XXNT 

I *4  NO  CUT 

TOTINT 

208 

PHU 

R*«»  100  IN" 

TOTINT 

209 

PHIZ 

R*4  100  IMP 

TOTINT 

210 

TOTINT 

211 

COMMON  STORAGE  USED 

TOTINT 

212 

COMMON  IMAX.CI.VXI.VYX.NI 

TOTINT 

213 

. 

TOTINT 

214 

IMAX 

1*4  NO  INP 

TOTINT 

215 

Cl 

R*4  100  INP 

TOTINT 

216 

VXI 

R*4  100  IN® 

TOTINT 

217 

VYI 

R*4  100  INP 

TOTINT 

218 

HI 

R*4  100  INP 

TOTINT 

219 

TOTINT 

220 

INPUTS 

TOTINT 

221 

TOTINT 

222 

ONEGA 

“ANGULAR  FREQUENCY  IN  RACIANS/SEC 

TOTINT 

223 

AKX 

“X  COMPONENT  OF  NAVE  NUMBER  VECTOR  IN  KM**(-1I 

TOTINT 

224 

AKT 

*Y  COMPONENT  OF  HAVE  NUMBER  VECTOR  IN  KM** (-11 

TOTINT 

225 

IT 

“PARAMETER  TRANSMITTED  TO  USEAS  DEFINING  FUNCTIONAL 

TOTINT 

226 

OEPSNOENCc  CF  A1.A2.A3  COMPUTE0  BY  USEAS. 

TOTINT 

227 

FHIKII 

“VALUE  OF  FI  AT  eOTTCM  OF  LAYER  I 

TOTINT 

228 

PHIZ(I) 

“VALUE  OF  F2  AT  30TTCM  OF  LAYER  I 

TOTINT 

229 

INAX 

“NUMEER  OF  ATMOSPHERIC  LAVERS  WITH  FINITE  THICKNESS 

TOTINT 

230 

Cl  (II 

“SOUNO  SPEEC  (KM/SEC)  IN  I-TH  LAYER 

TOTINT 

231 

VXKI) 

“X  COMPONENT  OF  WIND  VELOCITY  (KH/SECI  IN  I-TH 

LAYER 

TOTINT 

232 

VYKIl 

=Y  COMPONENT  OF  WINC  VELOCITY  (KM/SEC)  IN  I-TH 

LAYER 

TOTINT 

233 

HI  (II 

“THICKNESS  IN  KM  OF  I-TH  LAYER  . 

TOTINT 

234 

* 

TOTINT 

235 

—OUTPUTS . ; 

TOTINT 

236 

TOTINT 

237 

L.  . .. . . 

«1  OR  -1  OEPSNOING  ON  WHETHER  UP°ER  BOUNDARY  CONCITIO 

TOTINT 

238 

CAN  OR  CANNOT  OE  SATISFIED.  SEE  SUBROUTINE  U®tNT 

TOTINT 

239 

XINT 

“INTEGRAL  OVER  Z FROM  0 TO  INFINITY  AS  OEFINEO 

IN  THE 

TOTINT 

240 

ABSTRACT. 

TOTINT 

241 

T..  . . ... 

TOTINT 

242 

TOTINT 

243 

—PROGRAM  FOLLOWS  BELOW—  ..  .. 

TOTINT 

244 

TOTINT 

245 

_ _ ' . * .* 

TOTINT 

246 

trim 

247 

DIMENSION  ANO 

COMHCN  STATEMENTS 

TOTINT 

2**8 

OIMENSION 

Cl (1G0 1 .VXI (1001 , VYI (100) , HI (1001 .£H(Z.Z1 

TOTINT 

249 

DIMENSION 

PHIl(lGO) .FHIZ(IOO) 

TOTINT 

250 

COMMON  INAX.CI.VXI.VTI.HI 

TOTINT 

251 

TOTINT 

252 

COMPUTATION  CF  CONTPIOUUCN  FkOM  UPPER  HALFSPACE 

TOTINT 

253 

J*IMAX»1 

TOTINT 

254 

C*CI(J» 

TOTINT 

255 

VX*VXI (J> 

TOTINT 

256 

-172- 


* 

mvriui 

TOTIHT 

257 

] 

CALL  USEAS{0MEGA,AKX,A<Y,C.VX,VY,IT,A1,A2,A3J 

TOTINT 

2SS 

CALL  UPlNT(ONSGA*AKX,AKY,C,VX.VY.Al,A2,L*Fl.F2,UINn 

TOTINT 

259 

e 

TOTINT 

260 

c 

CHECK  IF  L NEGATIVE 

TOTINT 

26t 

• 

XFCL  *LT.  0)  RETURN 

TOTINT 

262 

c 

■ 

TOTINT 

263 

c 

HE  OENOTE  THE  CONTRIBUTION  A3*UINT  SY  XINT.  AS  THE  COMPUTATION  CON- 

TOTTNT 

269 

i C 

TINUES*  XINT  HILL  SUCCESSIVELY  Pc°R£SENT  THE  VARIOUS  SUBTOTALS  UNTIL 

TOTINT 

265 

! c 

CONTRIBUTIONS  FROM  ALL  THE  LAYERS  HAVE  BEEN  AOOEO  IN* 

TOTINT 

266 

i 

XINT*A3*UINT 

TOTINT 

267 

j C 

TOTINT 

263 

S C 

START  OF  00  LOOP  " . 

TOTINT 

269 

j 

00  BO  I*1,IHAX  "?*"•  ■ 

TOTINT 

270 

1 

J«IMAX*1-I 

TOTINT 

271 

c 

TOTINT 

272 

e 

COMPUTATION  CF  CONTRIBUTION  FRCN  J-TK  LAYER  OF  FINITE  THICKNESS. 

TOTINT 

273 

c 

THE  CURRENT  VALUES  FI  ANO  F2  REPRESENT  Fl(Z»  AND  F2(Z>  AT  TOP  OF 

TOTINT 

276 

C J-TH  LAYER* 

TOTINT 

275 

C'CItJI 

TOTINT 

276 

VX»VXI(J> 

TOTINT 

277 

• VY«VYI(J)... .... 

TOTINT 

273 

H«HI(J) 

TOTINT 

279 

CALL  USEAS<0MEGA,AKX,AKY.C.VX,VY.IT.A1,A2,A3> 

TOTINT 

280 

CALL  ELI NT (OMEGA *AKX*A<Y*C*VX«VY*H*F1*F2*A1*A2*AINTI 

TOTINT 

281 

XINT*XINT4AINT»A3 

TOTINT 

282 

e 

TOTINT 

283 

c 

COMPUTATION  CF  FI  ANC  F2  APPROPRIATE  TO  TOP  OF  (J-t)-TH  LAYER 

TOTINT 

286 

FI  « OHIl(J) 

TOTINT 

285 

• 

90  F2  « PHI2(J.I 

TOTINT 

286 

C ENO  OF  00  LOOP 

TOTINT 

287 

C. 

......  . \*. 

TOTINT 

288 

1 

RETURN 

TOTINT 

289 

! 

ENO  _ 

TOTINT 

29Q 

I 
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SUBROUTINE  UPINT(0HEGA,AKX.AKY.C.VX.VV,A1,A2.L,F1.F2.UINT) 

UP! NT  (SUBROUTINE)  7/25/68  CAST  CARO  IN  OECK  IS 

——ABSTRACT 

TITLE  - UPXNT 

THIS  SUBROUTINE  CONFUTES  AN  INTEGRAL  OF  THE  FORM 
UINT  ■ INTEGRAL  CVER  2 FROM  20  TO  INFINITY  OF 


(A1*F1(Z)  ♦ A2*F2(2))**2  II 

THE  FUNCTIONS  FI (2)  ANO  F2(2)  ARE  THE  SOLUTIONS  OF  THE  COUPLED 

ORDINARY  DIFFERENTIAL  EQUATIONS 

0F1/02  * Ail*Fl  ♦ A12*F2  . ..  (2 

OF2/OZ  « A21*F1  ♦ A22*F2  C2 

WHERE  THE  ELEMENTS  CF  THE  MATRIX  A ARE  INDEPENDENT  OF  2.  THE 
FUNCTIONS  F1(Z)  ANO  F2(Z)  A»E  SUBJECT  TO  THE  UPPER  90UN0ARY 
. CONDITION  THAT  BOTH  CECREASE  EXPONENTIALLY  HITH  INCREASING 
ALTITUDE t SINCE  THE  MATRIX  A IS  COMPUTED  OY  A AAA*  INSURING 

A (2*2 ) *-A(X* 1) * BOTH  SHOULD  VAPY  HITH  HEIGHT  AS  EXP C-GM2-2C) » 

WHERE 

. 6 ■ SORT (A(l*l)**2tA(l«2)*A(2*l)t  . . « 

IT  IS  ASSUMED  G**2  IS  POSITIVE.  OTHERWISE  L*-l  IS  RETURNED. 

. THE  EXPLICIT  FORMS  ACOPTEO  FOP  Ft  ANO  F2  WHICH  SATISFY  (2)  ARE 

FI  «-S0RT(G)*Aft.2)*EX=«-G*t2-Z0>)  IN 

• F2  ■ SORT (GI*(G+A(1.1) )*EXPC“G*(Z“Z0) ) (6 

THUS  UINT  IS  GIVEN  eY 

UINT  »((-Al*A(l,2l4A2*(G*A(t,in**2)/2.0  C5 

LANGUAGE  - FORTRAN  IV  <3c0,  REFERENCE  MANUAL  C22-6515-4) 

AUTHOR  - A. 0. PIERCE.  M.I.T.,  JULY, 1968 

, CALLING  SEQUENCE—— 

SEE  SUBROUTINE  TOTINT  . . .... 

NO  DIMENSION  STATEMENTS  PECUIRSO 

CALL  UPINT ( OMEGA, AKX.AKY ,C.VX.VY,A1,A2.L.F1.F2,UINT) 

—EXTERNAL  SUBROUTINES  REQUIREO— «_ 


—ARGUMENT  LIST 


OMEGA 

R*4 

NO 

INP 

UPINT 

54 

AKX 

R*4 

NO 

IN® 

UPINT 

55 

AKT 

. . R*4 

NO 

INP 

UPINT 

56 

C 

R*4 

NO 

INP 

UPINT 

57 

VX 

R*4 

NO 

INP 

UPINT 

58 

VT 

R*4 

NO 

INP 

UPINT 

5B 

At 

. R*4 

NO 

IN* 

UPINT 

60 

A2 

R*4 

NO 

1N° 

I'OINT 

61 

L 

X*4 

NO 

OUT 

UPINT 

62 

FI 

R*4 

NO 

our 

UPINT 

63 

F2 

R*4 

NO 

OUT 

UPINT 

64 

on  o on  o on o o on on o non noon o o o non o no ooo on o 
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c 


c 


HINT 

R*4  NO  our 

UPINT 

65 

UPINT 

66 

NO  COMMON  STORAGE  USED 

UPINT 

67 



UPINT 

68 

--INPUTS—— 

UPINT 

69 

UPINT 

70 

ONEGA 

■ANGULAR  FREQUENCY  IN  RACI6NS/SEC 

UPINT 

71 

„ AKX 

■X  COMPONENT  OF  HAVE  NUMBER  VECTOR  IN  KH**(-1> 

UPINT 

72 

Axr 

«Y  COMPONENT  OF  HAVE  NUHBER  VECTOR  IN'  KM**(-i> 

UPINT 

73 

. c 

■SOUND  SPEEO  IN  KM/SEC 

UPINT 

79 

vx 

■X  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC 

UPINT 

75 

vr  ... 

«Y  COMPONENT  OF  WINC  VELOCITY  IN  KM/SEC 

UPINT  - 

76 

At 

■COEFFICIENT  OF  Fi  (Z>  IN  INTEGRAND 

UPINT 

77 

..  A2  _ 

■COEFFICIENT  OF  F2(Z>  IN  INTEGRAND 

UPINT 

78 

UPINT 

79 

—OUTPUTS— 

UPINT 

60 

UPINT 

81 

L 

■1  OP  -1  DEFENDING  CN  WHETHER  UPPER  SOUNOARY  CONCITrO 

U®ll»7 

82 

OF  F1(Z),F2(Z)  DECREASING  EXPONENTIALLY  WITH  INCRFAS 

tlPINT 

83 

HEIGHT  CAN  OR  CANNOT  BE  SATISFIED.  IT  RE°PESENTS  TH 

UPINT 

84 

SIGN  OF  G**2  WHERE  G-IS  OEFINEC  IN  THE  ABSTRACT. 

UPINT 

85 

n .. 

■VALUE  OF  F1(Z)  AT  9CTTOM  OF  HALFSPACE.  DEFINED  AS 

UPINT 

66 

-S0PT(G)*A(1,2>  FROM  £'111,  UA). 

UPINT 

87 

n 

■VALUE  OF  F2(Z>  AT  eOTr  '».  OF  HALFSPACE,  OEFINEO  AS 

UPINT 

68 

SCPT(G>*(G*A(l.l>>  FROM  EON.  (4B> 

UPINT 

89 

UINT 

■THE  INTEGRAL  OEFINEC  BY  EQNS.  (1>  AND  (5>  IN  THE 

UPINT 

90 

, 

ABSTRACT 

UPINT 

PI 

■ 

, ...  T , , f 

UPINT 

92 

UPINT 

93 

—PROGRAM  FOLLOWS  BELOW 

UPINT 

94 

• 

UPINT 

95 

, 

UPINT 

96 

OIMENSION  A<2.2> 

UPINT 

97 

* 

UPINT 

98 

COMPUTATION  OF 

A WATOIX  AND  CF  X*G**2 

“PINT 

99 

CALL  AAAA (OMEGA, AKX -AKY.C.VX.VY.A) 

U.PINT 

100 

x«au,i>**2*a(i,2>*a(2,i> 

UPINT 

101 

CHECK  ON  SIGN  OF  X 

UPINT 

1C2 

2 IF ( X .GT. 

0.0  > GO  TO  3 

UPINT 

103 

, 

UPINT 

104 

X IS  NEGATIVE 

UPINT 

105 

L«-i 

..  ... 

UPINT 

106 

RETURN 

UPINT 

107 

CONTINUING  FROM 

2 WITH  X POSITIVE 

UPINT 

106 

3 L*1 

* 

UPINT 

109 

G»SQRT(X> 

_ _ _ , _ - , 

UPINT 

110 

GRT*SQRT (G> 

UPINT 

111 

F1«-GRT*A(1 

9 2)  . ^ _r__  . . 

UPINT 

112 

F2*GRT* (G*A (1,1)) 

UPINT 

113 

COMPUTATION  CF 

UINT  ■ . . 

UPINT 

114 

UINT*(-A1*A  (1,2) +A2MG*A  (1,1)  >>**2/2.0 

UPINT 

115 

RETURN 

UPINT 

116 

ENO 

UPINT 

117 

nflnnnoonnnnnnonnnononnnnnnnonnnnnnn ooooonoonnnnonoooooonnnoono n 


-175- 


SUBROUTINE 

USEAS (OMEGA 

•AKX.AKV ,C, 

VX.VY»IT»A1,A2»<3> 

USEAS 

1 

USEAS  (SUBROUTINE! 

7/25/68  LAST  CARO  IN  OECK  IS 

USEAS 

2 

USEAS 

3 

—ABSTRACT— 

USEAS 

4 

USEAS 

5 

TITLE  - USEAS 

USEAS 

6 

THE  PURPOSE  OF  THIS 

SUBROUTINE 

IS  TO  COHPUTE  THE  NUMBERS  Al,  A 

USEAS 

7 

ANO  A3 

WHICH  CEFENC 

ON  ANGULAR 

FREQUENCY  OMEGA,  HORIZONTAL  WAV 

USEAS 

a 

:.  . ..  ‘ NUMBER 

COMPONENTS  A<X  ANO  AKY, 

THE  SOUNO  SPEEO  C,  ANO  THE  WINO 

USEAS  . 

9 

SPEEO  COMPONENTS  VX 

ANO  VY.  THE  INTEGER  IT  DETERMINES  WHICH 

USEAS 

10 

FORMULAS  ARE  USEO  FOR  Al,  A2, 

ANO  A3  ACCORDING  TO  THE  FOLLOWIN 

USEAS 

11 

TABLE 

USEAS 

12 

USEAS 

13 

(IT! 

(Al) 

(A2) 

(A3) 

USEAS 

14 

1 

1 

B 

1 

USEAS 

16 

..  I. 

n 

_1„  , 

•„  1 ..  . 

USEAS 

17 

3 

1 

0 

BOM* (KOOTV) /(C**2*tO 

USEAS 

18 

: ,._4. 

l-_ 

0 

B0H/C**2  . _ . _ 

USEAS 

19 

5 

1 

ft 

• VX*B0M/C**2 

USEAS 

20 

. .6 

1 

0 

VV*80H/C**2  . _ 

USEAS 

21 

7 

C/C 

-c 

K*ONEG4/0OM**3 

USEAS 

22 

c/c  _ 

-c  . 

1.0/BOM**2  _ 

USEAS 

23 

9 

C/C 

-c 

K**2/B0M**3 

USEAS 

24 

18.. 

c/c 

-c. 

VX*K**2/BOH**3 

USEAS 

25 

x il 

c/c 

-c 

VY*K**2/BOM**3 

USEAS 

26 

USEAS  27 

MERE  BOM=OM£GA-KOOTV  IS  THE  OOPPLER  SHIFTEO  ANGULAR  FREQUENCY,  USEAS  28 

KDOTV*AKX*VX*flKY* VY  IS  THE  DOT  ORODUCT  OF  WAVE  NUMBER  WITH  USEAS  29 

THE  WIND  VELOCITY,  AND  K=SQRT (AKX**2*AKY**2>  IS  THE  MAGNITUDE  USEAS  30 

OF  THE  WAVE  NUMBER  VECTOR.  THE  ACCELERATION  OF  GRAVITY  G IS  USEAS  31 

TAKEN  AS  .0093  XM/S£C*»2  IN  THE  COMPUTATION.  CONFUTED  VALUES  USEAS  32 

. ....  SHOULO  0E  IK  KM, SEC  SYSTEM  CF  UNITS.  U'.EAS  33 

USEAS  34. 

LANGUAGE  - FORTRAN  IV  (36C.  REFERENCE  MANUAL  C28-6515-4!  USEAS  35 

AUTHOR  - A. 0. PIERCE,  M.I.T..  JUNE, 1968  USEAS  36 

USEAS  37 

CALLING  SEQUENCE——  USEAS  38 

. ...  USEAS  39 

SEE  SUBROUTINE  TGTINT  USEAS  40 

NC  DIMENSION  STATEMENTS  ARE  REQUIRED  USEAS  41 

IT*  . USEAS  42 

CALL  USE AS (OMEGA ,AKX,AKY,C,VX,VY,IT,A1,A2,A3)  USEAS  . 43 

Al, A2, A3  ARE  NOW  AVAILABLE  FOR  FUTURE  COMPUTATIONS  USEAS  44 

USEAS  45 

NO  EXTERNAL  LI3RARY  SUBROUTINES  ARE  REUUIREO  USEAS  46 

USEAS  47 

—ARGUMENT  LIST USEAS  48 

USEAS  49 


OHEGA 

R*4 

NO 

INO 

USEAS 

50 

AKX 

R*4 

NO 

INP 

USEAS 

51 

AKY 

R*4 

NO 

INP 

USEAS 

52 

C 

R*4 

NO 

IN" 

USEAS 

53 

VX 

R*4 

NO 

INP 

USEAS 

54 

VT 

-R*4 

NO 

INP 

USEAS 

55 

IT 

1*4 

NO 

IN» 

USEAS 

56 

Al 

R*4 

NO 

OUT 

USEAS 

57 

A2 

R*4 

NO 

OUT 

USEAS 

58 

A3 

R*4  ... 

-NO 

OUT 

USEAS 

59 

USEAS 

60 

NO  COMMON  STORAGE  USEO  USEAS  61 

USEAS  62 

INPUTS- USEAS  63 

USEAS  64 
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i 

I 


! 


i 


e 

OHEGA  « ANGULAR  FREQUENCY  IK  RAO/SEC 

USEAS 

65 

it 

c 

AKX  «X  COMPONENT  OF  HAVE  NUMBER  VECTOR  IN  KM*M-1) 

USEAS 

66 

■ X 

c 

AICT  . «T  COMPONENT  OF  HAVE  NUMBER  VECTOR  IN 

USEAS 

62 

^ 4, 

c 

C aSOUKO  SPEED  IN  KM/SEC 

USEAS 

68 

a; 

e 

VX..  «X  COMPOKEKT  OF  UIK'C  VELOCITY  IN  KM/SEC 

USEAS 

69 

c 

VT  *Y  CCMPOKEKT  OF  HINC  VELOCITY  IN  KM/SEC 

USEAS 

TO 

i 

3 

e 

XT  ..  ..  *CCKTROL  PARAMETER  FOR  SELECTION  OF  FORMULAS  (SEE 

USEAS 

71 

e 

ABSTRACT) • 

USEAS 

72 

e 

... 

USEAS 

73 

"jS 

c 

—--OUTPUTS 

USEAS 

7A 

'i 

c 

. 

USEAS 

75 

c 

At  aPARAMETER  DEFINED  SY  FORMULAS  IN  ABSTRACT 

USEAS 

76 

u 

c 

A2  ^PARAMETER  CEFINE3  9Y  FORMULAS  IN  ABSTRACT 

USEAS 

77 

\ 

c 

AS  apARAMETER  OEFINEO  BY  FORMULAS  IN  ABSTRACT 

USEAS 

78 

c 



USEAS 

79 

c 

USEAS 

BO 

’ 1 

c 

—PROGRAM  FOLLOWS  DELON— — 

USEAS 

ei 

c 

USEAS 

82 

c 

^ , , . , . . M f ‘ 

USEAS 

83 

' ? 

e 

• 

USEAS 

BA 

'1 

c 

HE  ASSIGN  VALUES  TO  A1,A2,A3  WHICH  HILL  NOT  NECESSARILY  8E  THEIR  EXIT 

USEAS 

85 

-> 

C VALUES. 

USEAS 

86 

* 

Alai.fl  

USEAS 

87 

A2*0.0 

USEAS 

86 

ASal.O 

USEAS 

89 

C 

XF  XT  IS  1*  THESE  ARE  CORRECT,  HOHEVER. 

USEAS 

90 

• i 

IFCIT  .EO.  II  RETURN 

USEAS 

91 

$ 

IFCIT  ,GT.  2)  GO  TO  200 

USEAS 

92 

e 

USEAS 

93 

c 

XT  IS  2.  THE  CURRENT  VALUES  ARE  1,0,1.  NE  CHANGE  THE  FIRST  TWO. 

USEAS 

94 

A1«0.0 

USEAS 

95 

A2«1.0 

USEAS  ' 

96 

RETURN 

USEAS 

97 

- 

c 

USEAS 

98 

c 

IT  IS  .GT.  2.  HE  COMPUTE  SOME  QUANTITIES  FOR  FUTURE  REFERENCE 

USEAS 

99 

200  AKV*A<X*VX+AKY*VY 

USEAS 

100 

■f 

AKSQ«AKX**2*AKY**2 

USEAS 

101 

BOH«OMEGA-AKV 

USEAS 

102 

AK*SQRTC AKSQ)  - 

USEAS 

103 

c 

THE  CURRENT  VALUES  OF  A1.A2,A3  ARE  STILL  1,0,1. 

USEAS 

104 

- i 

IFCIT  .GT.  31  GO  TO  30Q 

USEAS 

J.05 

c 

USEAS 

106 

N' 

c 

XT  IS  EQUAL  TO  3.  ONLY  A3  KEEO  BE  CHANGED.  . 

USEAS 

107 

i 

\ 

A3«B0M*AKV/CC**2»AKI 

USEAS 

108 

V 

RETURN  ... 

USEAS 

109 

c 

USEAS 

110 

X 

c 

IT  IS  A OR  GREATER.  HE  SET  A3  TO  VALUE  APPROPRIATE  FOR  IT»4. 

USEAS 

111 

300  A3*BOM/C**2 

USEAS 

112 

; 

c 

THE  CURRENT  VALUES  OF  A1  ANG  A2  ARE  1 ANO  0 

USEAS 

113 

> 

IFCIT  .EO.  A)  RETURN 

USEAS 

114 

i 

XFHT  .EQ.  5)  A3*VX*A3  _ , 

USEAS 

115 

■5 

IFCIT  .EQ.  6)  A3*VV*A3 

USEAS 

116 

IFCIT  .EQ.  5 .OR.  IT  .EC.  6)  RETURN 

USEAS 

117 

c 

* ' 4 

USEAS 

118 

c 

IT  IS  7 OR  LARGER  

USEAS 

119 

Al«. 0098/C 

USEAS 

120 

A2»-C  _ .... 

USEAS 

121 

c 

USEAS 

122 

' 

c 

THE  ONLY  QUANTITY  HE  NEED  CETERHINE  IS  A3 

USEAS 

123 

e 

• 

USEAS 

124 

IFCIT  .GT.  7)  GO  TO  700 

USEAS 

125 

e 

XT«?  - 

USEAS 

126 

'4 

A3»AK*0MEGA/B0H<m>3 

USEAS 

127 

i 

RETURN 

USEAS 

128 

no  o - on 
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i 


?oo  irur  .gt.si  co  to  soo 
C IT«8 

A3*i»0/B0H**2 
RETURN  . 

FOR  XT*9tlO#ll  ME  NEED  THE  FACTOR  AKSD/30H**3 
800  A3«AKS9/P0M*»3 

XF(XT  .£Q.  9>  RETURN 

if«t  ,gt.  to*  go  ro  1000 
IT»10  . ... 

A3«VX*A3 

RETURN  

IT*11  (YOU  SHOULON-T  INPUT  XT  FOR  VALUES  OUTSIDE  RANGE  OF  l TO  U.) 
1000  A3*W»A3 
RETURN. 

END 


USEAS  129 
USEAS  130 
USEAS  131 
USEAS  132 
USEAS  133 
USEAS  136 
USEAS  135 
USEAS  136 
USEAS  127 
USEAS  138 
USCAS  139 
USEAS  160 
USEAS  161 
USEAS  162 
USEAS  163 
USEAS  166 
USEAS  165 
USEAS  166 
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SUBROUTINE  WIO£W(OM« V, INMOOE , NON, NOHP.NVP, Nl.KU, THE TK) 

WICEN 

1 

c 

NIOSN  (SUBROUTINE)  6/19/69  LAST  CARO  IN  OECK  IS 

WIDEN 

2 

e 

WIDEN 

* 

4* 

e 

WIOEN 

4 

c 

••—ABSTRACT—— 

WIDEN 

5 

c 

WIOEN 

6 

c 

TITLE  - WICEN 

WICEN 

7 

c 

MIQEN 

MATRIX  INMOOE  BY  AOOING  KM  COLUMNS  BETWEEN  COLUMNS  M AN 

WIOEN 

8 

c 

Nin 

. 

WIOEN 

9 

c 

WIOEN 

10 

c 

MXOEN  ACOS  KW  ELEMENTS  TO  THE  VECTOR  OF  ANGULAR  FRECUENC 

WIOEN 

11 

c 

OH  * CIVIOING  THE  INTERVAL  BETWEEN  0M(N1)  ANO  OM(NIU)  I 

WICEN 

IE 

c 

KM*1  EOL'AL  FAS  IS.  FOR  EACH  NEW  ANGULAR  FREQUENCY,  A Nil) 

WIOEN 

13 

c 

COLUMN  IS  ACOEC  TO  THE  INMOOE  MATRIX  (OEFINEO  IN  SUC’OU- 

WIOEN 

14 

c 

TINE  MPOUT) « INMOCE  13  STORED  IN  VECTOR  FORM,  COLUMN  AF 

WICEN 

IS 

c 

COLUMN. 

WIOEN 

16 

c 

WIOEN 

17 

c 

LANGUAGE  ■- 

FORTRAN  IV  (360,  REFERENCE  MANUAL  C29-6S15-4) 

WIOEN 

19 

c 

WIOEN 

19 

c 

AUTHORS 

A. 0. PIERCE  ANC  J, POSEY , H.I.T.,  JUNE, 1969 

WIOEN 

20 

c 



WIOEN 

21 

c 

WIOEN 

22 

c 

— USAGE*— • 

WICEN 

23 

c 

WIOEN 

24 

c 

OH. V, INMOOS  MUST  BE  CIKEKSIONEO  IN  CALLING  PROGRAM 

WIOEN 

25 

c 

THE  ONLY 

SUBROUTINE  CAUEO  IS  NMDFN,  DESCRIBED  ELSEWHERE  IN  THIS 

WIDEN 

26 

c 

SERIES 

WIOEN 

27 

c 

WIOEN  . 

20 

c 

FORTRAN  USAGE 

NIOEN 

29 

c 

CALL  WICEN(OM,V« INMOOE » NOM.NONP «NV  ®»N1»KW»THETK> 

WIOEN 

30 

c 

WICEN 

31 

c 

INPUTS 

WIOEN 

32 

c 

WICEN 

33 

e 

OH 

VECTOR  WHOSE  ELEMENT'1  ARE  THE  VALUES  OF  ANGULAR  FRECUENC 

WICEN 

34 

c 

R*4(0> 

CORSESPONCING  TC  THE  COLUMNS  OF  MATRIX  INHOOS.  (RAO/SEC) 

WIOEN 

35 

c 

WICEN 

36 

c 

V 

VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  PHASE  VELCCITY 

WIOEN 

37 

c 

R*4(0) 

CORRESPONDING  TC  THE  RCWS  OF  MATRIX  INMOOE,  (KM/SEC) 

WIOEN 

39 

c 

WIDEN 

39 

c 

ZNMQOE 

EACH  ELEMENT  OP  THIS  MATRIX  CORRESPONDS  TO  A POINT  IN  TH 

WIOEN 

40 

c 

1*4(0) 

FREQUENCY  (OH)  - PHASE  VELOCITY  tV>  PLANE.  IF  THE  NOP.HA 

WT3EN 

41 

c 

MODE  DISPERSION  FUNCTION  (FPP,  FOUND  BY  CALLING  SUBROUTI 

WIDEN 

42 

c 

NMOFN)  IS  POSITIVE  AT  THAT  POINT,  THE  ELEMENT  IS  *1,  IF 

WIOEN 

43 

c 

FPP  IS  NEGATIVE.  THE  FLEMENT  IS  -i.  IF  FPP  QCES  NOT  EXIS 

WIDEN 

44 

e 

THE  ELEMENT  IS  5.  INMOOE  IS  STORED  IN  VECTOR  FORM,  COLU 

WICEN 

45 

c 

AFTER  COLUMN, 

WIOEN 

46 

c 

, 

WICEN 

47 

c 

" NOM 

NUM8EF  OF  ELEMENTS  IN  OM  (AND  NO.  CF  COLUMNS  IN  INMOOE) 

WIOEN 

48 

c 

1*4 

WHEN  WICEN  IS  CALLEO. 

WIOEN 

49 

c 

NVP 

NUMBER  OF  ELEMENTS  IN  V (ANO  NO.  OF  ROWS  IN  INMOCE). 

WIOEN 

50 

c 



_ . __  . ...  __ 

WIDEN 

51 

c 

WIOEN 

52 

c 

N1 

NUMBER  OF  INMCOE  COLUMN  IMMEDIATELY  LEFT  OF  SPACE  IN  WHI 

WIOEN 

53 

c 

1*4 

NEW  COLUMNS  ARE  TO  QE  AOOEO. 

WIOEN 

54 

c 

. . . . 

• • . — - . ^ , _ . ..  L . _ _ ^ r[  . ( 

WIOEN 

55 

c 

KM 

WIOEN 

56 

c 

1*6 

NUMBER  OF  COLUMNS  TO  BE  AOOEO  TO  INHOOE, 

WICEN 

57 

c 

WIOEN 

59 

c 

THETK 

PHASE  VELOCITY  CIRECTICN  MEASUREO  COUNTER-CLOCKWISE  FROM 

WIOEN 

59 

c 

R*4 

X-AXIS  (RAOIANS) . 

WIOEN 

60 

e 

WIOEN 

61 

c 

OUTPUTS 

WIOEN 

62 

c 

WIOEN 

63 

c 

THE  OUTPUTS  ARE  NOMP  (*  NCH  * KH  s THE  NEH  NUMBER  OF  ELEMENTS  IN  0 

WIOEN 

6»- 

t. 


1 


an  non  on  no  no  on  non  nno  on  non  on  non  onno  non  oon  o n 
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ANO  THE  NEW  NUMBER  OF  COLUMNS  XN  INNOOEI  ANO  REVISED  VERSIONS  OF  0 
AND  INMOOE. 


-—EXAMPLE—— 


SUPPOSE  OH  * 1.0.2. 0.3.0  ANO  WICEN  IS  CALLEO  WITH  KM  * 3.  ANO  N1  * 
2*  THEN  UPON  RETURN  TO  CALLING  PRCGRAH.  OH  * 1.2,2.0.2.25.2.5.2.75 
3.0.  NOMp.s  6,  ANO  INMCOE  WILL  HAVE  THREE  NEW  ROWS  CORRESPONDING  T 
THE  NEW  ELEMENTS  OF  OH. 


— —PROGRAM  FOLLOWS  BELOW 


VARIABLE  DIMENSIONING 

DIMENSION  0M<lk  ,V<lk  .INMOOEdk 

COHHON  XMAX,CId00k.VXId00k,VTXdO0k,HI<100l 

INTERVAL  AT  WHICH  NEW  VALUES  OF  CH  ARE  BE  PLACEO  BETWEEN  OkUNlk  ANO 
OMfNlUk  1$  DETERMINED 

OELOM*(OM(IUUk-CMlNlkk/(KWd>  ..  . 

NOMP  IS  NUMBER  OF  ELEMENT  IN  EXPANOEC  OM  . 

NOMP*NOM*KW 

NSTART  IS  THE  NUMBER  OF  THE  ELEMENT  IN  THE  NEW  OM  WHICH  CORRESPONDS  T 
ELEMENT  Nl*l  IN  THE  CLO  CM  VECTOR 
NSTART»Nm«*W 

MOVE  ALL  ELEMENTS  CF  OM  eEVCNO  ELEMENT  HI  TO  THEIR  NEW  POSITIONS,  BEG 
KING  WITH  THE  LAST  ELEMENT 
OO  90  NJsNSTART.AOMP 

J«NOMP-tNJ-NSTAPTI  

JOLOSJ-KW 

MOVE  COLUHN  JOLO  OF  INMOOE  INTO  POSITION  FOR  COLUMN  J 

OKI  Jk  *OM  (JOLO)  . . 

OO  90  I°*l,  NV° 

IJ*<J-ll»NVPMNV*-IPk  ♦ 1 ...  , 

IJOLO*<JOLO-lk *NVP+INVP-IP>  ♦ 1 

INMOOE  dJk  *IHNCCE  ( I JOLC)  

90  CONTINUE 


NSTART  IS  NUMBER  OF  FIRST  NEW  COLUMN 

NSTART*N1U  . . . .. 

NEN3  IS  NUMBER  OF  LAST  NEW  COLUMN  ..  ..... 

NEN0*N1*KW 

, r 

NEW  VALUES  OF  OM  ARE  ESTABLISHED 

OMEGA*OM(Nl)  . ' 

OO  190  J=NSTART,NENO 

OKI  Jk  sQMEGA  ♦ OELOM  I , 

. OMEGA  * OMCJk 

00  190  1*1,  NVP  '...I  . ...‘ 

IJ  IS  NUMBER  OF  ELEMENT  IN  VECTOR  REPRESENTATION  OF  INMODE  WHICH  IS 
CLEMENT  J IN  ROW  I OF  INMOOE 

IJ*tJ-lk*NV°»I  

• VPHSE*V(I) 

CALL- NN0FN  TO  EVALUATE  THE  NORMAL  MOOE  DISPERSION  FUNCTION  <FP°k 


WIDEN 

65 

WI0EN 

66 

WIOEN 

67 

WX0EN 

68 

WIOEN 

69 

WIOEN 

70 

WICEN 

71 

WIOEN 

72 

WIOEN 

73 

WIOEN 

76 

WIOEN 

75 

WICEN 

76 

WIOEN 

77 

NIOEN 

78 

WICEN 

79 

NIOEN 

80 

NIOEN 

81 

WIOEN 

82 

WIOEN 

83 

WICEN 

84 

WIDEN 

85 

WIOEN 

86 

WIOEN 

87 

WIOEN 

88 

WIOEN 

89 

WIOEN 

90 

WIDEN 

91 

WICEN 

92 

WIOEN 

93 

WIDEN 

94 

W.IOEN 

95 

WIOEN 

96 

WIOEN 

97 

WIOEN 

98 

WICEN 

99 

WIOEN 

100 

WIOEN 

101 

WICEN 

102 

WIOEN 

103 

WIOEN 

104 

WIOEN 

105 

WIOEN 

106 

WIOEN 

107 

WIOEN 

108 

WICEN 

109 

WIOEN 

110 

WIOEN 

111 

WICEN 

112 

WIOEN 

113 

WICEN 

114 

WIDEN 

115 

WICEN 

116 

WIOEN 

117 

WIOEN 

118 

WIOEN 

119 

WIO?N 

120 

WIOEN 

121 

WICEN 

122 

WIOEN 

123 

WICEN 

126 

WICEN 

125 

WICEN 

126 

WICEN 

127 

WIOEN 

128 

on  no 
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CALL  NHOFN<ON£G*'VPHSEtTHETK«UFFP.lO 

WXOEN 

129 

NXCEN 

130 

IF  FPP  00ES  NOT  EXIST  L « -1 

WIDEN 

131 

XF<  L .EQ.  >1  J SO  TO  ISO 

MXOEN 

132 

WIDEN 

133 

XF  FPP  OOES  EXIST  L * 1 AND  INFOOSCXJ)  ■ <FPP/A8SCFPP»> 

WXOEN 

134 

XNHOOE(IJ)  * 1 

WIDEN 

135 

XF  (FPe.lE.O.O)  INM00E(IJ>  « -1 

WXOEN 

136 

CO  TO  180 

WXOEN 

137 

ISO  XNMOOEdJ) *5 

WXOEN 

138 

100  CONTINUE 

WXOEN 

139 

190  .CONTINUE 

WXOEN 

140 

RETURN 

WXOEN 

141 

CNO 

WXOEN 

142 
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APPENDIX  B 

■ — ■ ■ i ■ ■ A 

» 5 

i 

* ) 

SOURCE  DECK  LISTING  OF  ' 

AN  ALTERNATE  VERSION  OF  SUBROUTINE  TABLE 

) 

This  version  of  SUBROUTINE  TABLE  is  used,  as  described  in  Chapter  III 
of  the  present  report,  to  tabulate  listings  of  R^  and  R^2  versus  angular 
frequency  OMEGA  and  phase  velocity  VPHSE  which  are  used  in  calculating  the 
parameter  a and  8 for  the  GRq  and  GR^  modes  which  in  turn  are  used  in 
calculating  the  values  of  the  imaginary  component  kj  of  horizontal  wave- 
number  for  these  modes  at  frequencies  below  cutoff.  Thi3  version  of 
TABLE  should  replace  the  version  in  Appendix  A when  a tabulation  of  R^ 
and  R^2  is  desired. 


O OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOvJOOOOOOOOOOOOCJOO 
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SUdROUTINt  TABLE (0M1,0MZ , VI, V2 ,NGH»NVP» THETK, OH,V» INMODE.NOPT) 

TABLE  (SUBROUTINE*  7/ 19/68  LAST  CAKU  IN  UECK  IS  NO* 


— — ABSTRACT 


TITLE  - TABLE 

GENERATION  CF  SUSPICIUNLESS  TABLE  OF  NORMAL  MODE  DISPERSION 
FUNCTION  SIGNS 

TA3LE  CALLS  SUBROUTINE  MPOUT  TO  CONSTRUCT  THE  MATRIX  OF 
NORMAL  MODE  OISPERSION  FUNCTION  SIGHS  INMODE  (STOREO  IN 
VECTOR  FORM  COLUMN  AFTER  COLUMN*  FOR-  REGION  IN  FREQUENCY- 
PHASE  VELOCITY  PLANE  (OM1.LE. OMEGA. Lc.OME. AND. Vl.LE. VP.LE 
• V2 1 » SUBROUTINE  SUSFCT  IS  CALLED  TC  EVALUATE  THE  SUSPI- 
CION INDEX  ,ISUS,  OF  EACH  INTERIOR  ELEMENT  IN  THE  MATRIX  * 

. SCANNING  FROM  LEFT  TO  RIGHT,  TOP  TO  BOTTOM.  IF  ISUS  .NE. 

0 , INMODE  IS  ALTERED  AS  FOLLOWS. 

ISU5=1  ROW  AOOEO  ABOVE  SUSPICIOUS  ELEMENT  ANO  COLUMN 
AODEU  TO  ITS  LEFT 

*2  COLUMN  ADCED  TO  RIGHT  OF  SUSPICIOUS  ELEMENT- 
ANO  ROW  ADDED  ABOVE  IT 

=3  ROW  ADDED  BELOW  SUSPICIOUS  ELEMENT  ANO  COLUMN 
AOOEO  TO  ITS  RIGHT 

*4  COLUMN  ADDED  TO  LEFT  OF  SUSPICIOUS  ELEMENT 
ANO  ROW  ALOED  8ELOW  IT 

HOWEVER,  NEITHER  THE  NUMBER  OF  ROWS  NVP  NOR  THE  NUMBER  OF 
COLUMNS  NOM  WILL  BE  INCREASED  BEYOND  100.  IF  ISUS  CALLS 
FOR  AN  ADDITIONAL  ROW  WHEN  NVP  * ICO  , THE  MESSAGE 
(NVP  =100  N = XX  M = XX)  WILL  BE  PRINTED. 

N IS  ROW  NO,  OF  SUSPICIOUS  ELEMENT.  M IS  COLUMN  NO.  IF 
ISUS  CALLS  FOR  AuOITICN  OF  A COLUMN  WHEN  NOM  = luO,  THE 
MESSAGE  (NOM  = ICC  N = XX  M = XX)  IS  PRINTED. 

WHEN  INMOOc  HAS  BEEN  EXPANDED  SCANNING  IS  RESUMED  AT  THE 
ELEMENT  IN  NEW  MATRIX  WITH  SAME  ROW  AND  COLUMN  NOS.  AS 
THOSE  OF  SUSPICIOUS  ELEMENT  IN  OLD' MATRIX.  IF  NUPT  IS 
POSITIVE  INMOOE  WILL  BE  PRINTED  AS  IT  IS  RETURNSO  FROM 
MPDUI  ANO  IN  ITS  FINAL  FORM. 

LANGUAGE  - FORTRAN  IV  (360,  REFERENCE  MANUAL  - C26-6516-4* 

AUTHOR  - J.W.PCSEY , M.I.T.,  JUNE, 1968 


USAGE 

SUBROUTINES  MFC UT, SUSPCT,LNGTHN , WIDEN, NHDFN  ARE  CALLED  IN  TABLE. 
FORTRAN  USAGE 

CALL  T AdLC (Oil, 0M2, VI, V2,NuM, NVP, THETK, OH, V, INMODE, NOPT* 

INPUTS 

OM1  MINIMUM  VALUE  OF  FREQUENCY  TO  BE  CONSIDERED. 

R*4 

OM2  MAXIMIM  VALUE  OF  FREQLENY  TO  BE  CONSIDERED 

R+H 


ooooooooooooor/oonooooooooooooooooooooooooononorioooooooooo 
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VI  MINIMUM  VALUE  OF  PHASE  VELOCITY  TO  BE  CONSIDERED 

R*4  - 

V2  MAXIMUM  VALUE  OF  PHASE  VELOCITY  TO  Ot  CONSIDERED 

R*4 

NOM  INITIAL  NO.  OF  FREQUENCIES  TO  BE  CONSIDERED 

1*4 

NVP  ' INITIAL  NO.  OF  PHASE  VELOCITIES  TO  BE  CONSIDERED 

1*4 

THETK  PHASE  VELOCITY  DIRECTION  (RADIANS) 

R*4  • 

NOPT  PRINT  OUT  OPTION.  IF  NOPT  = -1,  NO  PRINT.  IF  NOPT  = 1, 

1*4  INMOCE  IS  PRINTED  IN  ITS  INITIAL  FORM  (GENERATED  BY  MPOUT) 

AND  IN  ITS  FINAL  FORM. 

OUTPUTS 

NOM  . TOTAL  NO.  OF  FRtQUENCIES  CONSIDERED 

1*4 

NVP  TOTAL  NO.  Of-  PHASE  VELOCITIES  CONSIDERED 

1*4 

OM  VCCTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  ANGULAR  FREQUENCY 

R*4 (U)  CORRESPONDING  TO  THE  COLUMNS  OF  THE  INMODE  MATRIX 

V VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  CF  PHASE  VELOCITY 

R*4 (0)  CORRESPONDING  TO  THE  ROWS  OF  THE  INMOOE  MATRIX 


INMODE  EACH  ELEMENT  OF  THIS  MATRIX  CORRESPONDS  TO  A POINT  IN  THE 
1*4(0)  FREQUENCY  (OM)  - PHASE  VELOCITY  (V)  PLANE.  IF  THE  NORMAL 
MODE  C ISPERSI ON  FUNCTION  (FPP)  IS  POSITIVE  hT  That  POINT, 
THE  ELEMENT  IS  U,  IF  FPP  IS  NEGATIVE,  THE  ELEMENT  IS  -1, 
IF  FPF  00 ES  NOT  EXIST,  THE  ELEMENT  IS  5.  INMODE  HAS  NVP 
ROWS  ANO  NOM  COLUMNS.  MATRIX  IS  STORED  AS  A VECTOR, 
COLUMN  AFTER  COOIMN. 


EXAMPLE 


LET  INMOOE  = -1, 5 , 5 , 5, 1,-1 , -1, -1 , 1 , 1 , -1, -1 , 1,1 , 1 , 1 
WITH  NOM  = NVP  = 4 

AND  OM  = 1.0, 1.5, 2. 0,2. 5 THETK  = 3.1^159 

V — 1.0, 2.0, 3. 0,4.0 

(VALUES  NOT  CORRECT,  FOR  ILLUSTRATION  ONLY) 


THEN  THE  TABLE  WILL  BE  PRINTED  AS  FOLLOWS. 


VPHASE 

1.00003 

2.00000 

3.00000 

4.00000 


NORMAL  MODE  OISPERSION  FUNCTION  SIGN 


X-+v 
X— ♦ 
X— + 


OMEGA  1234 

PHASE  VELOCITY  DIRECTION  IS  9Q.QOODEGREES 


OMEGA  - 

0.10000E  01  0.15000E  01  0.20000E  01 


0.25000E  01 


nn  on  no  no  no  oo  noooo  oo  no  oo  ooooo 
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PROGRAM  FOLLOWS  8EL0W 


DIMENSION  OM(10  3),V(1CQ)  .INMOOE  (1000  0 1 , DORN  (100 > ,K0RN<  1001 
DIMENSION  P.PP(2,2I 

COMMON  IHAX.CKIOQ)  ,VXI(100>  ,VYI (100) ,HI (1QQ) 

MPOUI  IS  CALLED  10  PRODUCE  INHOOE  MATRIX  AND  OH  AND  V VECTORS. 

CALL  HPOUT (OMl,OM2, VI. V2»NOM,N VP, INMODE. OM,V,THETK) 

IFLAG  = 1 INDICATES  FIRST  TIME  THRCUGH  WRITE  PROCEDURE 
IFLAG  •=  1 

INMOOE  IS  PRINTED  IF  NOPT  IS  POSITIVE 
IF  (NUPT.GE.01  GO  TO  123 
5 IFLAG  = 0 
NGP£R=Q 

WCPER  IS  THE  NUMBER  OF  EXPANSION  OPERATIONS  PERFORMED  IN  THE  PRESENT 
SCAN  OF  ThE  MATRIX.  THUS,  NOPER  IS  THE  NUMBER  OF  SUSPICIOUS  POINTS 
FOUND  IN  THE  PRESENT  SCAN. 

BEGIN  SCANNING  OF  INTERIOR  ELEMENTS  OF  INMOOE  IN  UPPER  LEFT  CORNER 
N = 2 
H = 2 

10  CALL  SUSPCT(N,M,NVP, INMOOE, ISUS) 

POINT  <N,M)  IS  SUSPICIOUS  IF  ISUS.NE.O 
IF (ISUS .NE • 0 > GO  TO  60 

CHECK  FOR  END  OF  ROW 
20  IF  (M.LT. (NOM-l)T  GO  TO  30 

CHECK  FOK  LAST  ROW 

IF  (N.LT.  (NVP-U)  GO  TO  40 
GO  TO  121 

MOVE  ONE  COLUMN  TO  RIGHT 
30  M = M ♦ 1 
GO  TO  10 

ADVANCE  ONE  ROW  AN0  START  AT  COLUMN  TWO 
40  N = N* 1 
M = 2 
GO  TO  10 

CHECK  FOR  MAXIMUM  VALUE  OF  NVP 


so 

IF (NVP  .LT .10 

0)  GO  TO  62 

61 

FORMAT  (2  <*H 

NVP 

= too 

N 

-» 13, 8H 

M = . 1 3) 

WRITE  <6,611 

N»M 

t 

GO  TO  20 

62 

IF (NOM  .LT. 

100) 

GO  TO  70 

63 

FORMAT (24HNOM  = 

10  0 

N= 

,13,  8H 

M=,I3) 

64 

WRITE  <6t63> 

N,M 

GO  TO  20 

70 

IF ( IoUS  .NE. 

1) 

GO  TO  75 

O O OO  DO  C.  O OO  OO  OO  O o oo  no  oo 
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A00  ROW  AOOVE  SUSPICIOUS  POINT 
N1=N-1 

A00  A COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 
M1=M-1 
GO  TO  100 

75  IFdSUS  .NE.  2)  GO  TO  80 

AGO  A COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 
N1=M 


ADO  ROW  ABOVE  SUSFICIOUS  POINT 
N1=N-1 
GO  TO  100 

80  IF (1SUS  .NE.  3)  GO  TO  85 

AOD  A COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 
M1=H 


ADO  ROW  BELOW  SUSFICIOUS  POINT 
N1=N 

GO  TO  100 

AOO  ROW  BELOW  SUSPICIOUS  POINT 
85  Ni-N 

AOO  A COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 
M1=M-1 

100  CONTINUE 

CALL  LNGTHN(0M,V,INM0DE,N0M,NVP,NVPP,N1,1,THETK> 

CALL  HI OEN(OM,V, INMODE. NON, NOMPtNVPP. Ml. l.THETK) 

NVP=NVPP 
N0K=N0MP 
NOPER  = NOPERU 
GO  TO  10 

121  CONTINUE 

IFiNOFER  .GT,  0 .AND.  NVP  .LT.  100  .AND.  NOM  .LT.  100)  GO  TO  5 

OO  NOT  PRINT  INMOOE  IF  NOPT  IS  NEGATIVE 
IFTNOPT  .LT.  0)  RETURN 

LABELING 

122  FORMAT  (6H1VPHSE.6X, 36HNQRMAL  MODE  DISPERSION  FUNCTION  SIGN/) 

123  WRITE  (6,122) 

DO  133  1=1, NVP 
OO  128  J=1 ,NQM 
J88=<  J-l)  ♦NVP*’  1 
J89=INM0DE(J88) -l 

IF  (J  89)  126, 125,124 

124  CONTINUE 

IF  INMODE  = 5,  DORN  - 1HX 
DATA  Q1/1HX/ 

OORN(J)  = Ql 
GO  TO  127 

125  CONTINUE 


uo  oo  o o oo  oo  oo  oo 
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IF  IKMOUE  = 1*  DORN  = 1H+ 

0 41 A Q2/1H*/  -0,  > 

OORN(J)  = Q2  t 

GO  TO  127 

126  CONTINUE  -! 

4 J- 

IF  INMODE  = -1,  OORN  = 1H-  ; 

OATA  Q3/1H-/  ; 

DORN  < J)  = 03  | 

127  CONTINUE 

126  CONTINUE  j 

PKINT  ROW  I OF  TABLE  j 

WRITE  (5,133)V(I), fUOPN(J),  J= 1 , NOM)  f 

130  FORMAT ( 1H  , F J . 5 . 3X , 10 0 A1 ) \ 

133  CONTINUE.  S 

J10  = 10  i 

DO  150  J=1,N0H  ;i 

NUMBER  COLUMNS 

150  KORN(J)  = M00< J , J10) 

WRITE  <6,213)  (KCRN(J) , J=1,NQM)  I 

213  FORMAT  (bHCOMEG A 1 6X, 100 ID 

CONVERT  THE  TK  FROM  RADIANS  TO  DEGREES 
X = THETKM8J/3. 14159 

WRITE  (6,413)  X ' ; 

413  FORMAT  <1H  , 11X , 27HPHASE  VELOCITY  DIRECTION  IS.F9.3, 

1 8HOEGREES  ) 

WRITE  (6,513) 

513  FORMAT  ( 6H0ONEGA  =) 

LIST  VALUES  OF  OMEGA  WHICH  CORRESPOND  TO  COLUMNS  CF  TABLE 

WRITE  (6,613)  (UM(I) ,1=1, NOM)  ‘ 

613  FORMAT  < 1H  ,5614,5)  i 

) 

IF  SUSPICION  ELIMINATION  HAS  NOT  BEEN  PERFORMED,  BEGIN  IT  AT  THIS  TIME 
IF(IFLAG.EQ.l)  GO  TO  5 

DCLVP=  <V2-V1)/(NVP-1)  : 

GM£GK=OMl 

OELOH= ( 0M2-0M1) / (NOM-1) 

CO  986  I AA= 1 , NCM 
WRITE  (6,933)  CMEGK 
933  FORMAT  <1H  ,3X,6H0MEGA=,E14.5) 

OO  977  JAA=1,NVP 

VE=VlMJAA-l)*COLVP 

AKX=OMLGK/VE 

AKY  = 0.0  v- 

CALL  RRRR(OMEGK, AKX,  AK Y, RPP, KY> 

WRITc.  (6,944)  VE, RPP (1,1) , RPP(1,2) 

944  FORMAT  (1H  ,E1 2 . 5, 6X , E 12 .5 , 3X, E 12,5)  > 

977  CONTINUE  •> 

OM£GK=OMEGK*-OELOM 
988  CONTINUE 
RETURN 
END 


